GGPLOT2：添加回歸方程和R2和情節

Question

使用df及以下

代碼調整自己的位置，我得到這個情節

感謝@ kdauria的回答this question，我添加了迴歸方程和R2，如下圖所示

source_gist("524eade46135f6348140") 
ggplot(df, aes(x= new_price, y= carat, color = cut))+ 
    stat_smooth_func(geom="text",method="lm",hjust=0,parse=TRUE)+ 
    geom_point(alpha = 0.3)+ 
    facet_wrap(~clarity, scales = "free_y")+ 
    geom_smooth(method = "lm", se = F) 

現在，我要調整的迴歸方程和R2的位置，以便在每個所述小面（例如一個特定的地方在每個小面的右下方的「例如0.2y和0.8x）。

我試圖通過vjust和hjust調整位置，但它沒有奏效。

任何建議將不勝感激。

Answer 1

stat_poly_eq嘗試從包ggpmisc：

library(ggpmisc) 
formula <- y ~ x 
ggplot(df, aes(x= new_price, y= carat, color = cut)) + 
    geom_point(alpha = 0.3) + 
    facet_wrap(~clarity, scales = "free_y") + 
    geom_smooth(method = "lm", formula = formula, se = F) + 
    stat_poly_eq(aes(label = paste(..eq.label.., ..rr.label.., sep = "~~~")), 
       label.x.npc = "right", label.y.npc = 0.15, 
       formula = formula, parse = TRUE, size = 3) 

返回

?stat_poly_eq參見其他選項來控制輸出。