用R中的ggplot2计算相关系数

Question

  

可能重复：
  ggplot2: Adding Regression Line Equation and R2 on graph

我使用以下程序绘制带有回归线的散点图。但我想计算相关系数。如何使用ggplot2获取它？如何在散点图上添加回归线方程和相关系数（R）？

library(ggplot2)
d <- data.frame(x=c (1.0325477, 0.6746901, 1.0845737, 1.1123872, 1.1060822, 0.8595918, 0.8512941, 1.0148842, 1.0722369, 0.9019220 , 0.8809147, 1.0358256, 0.9903858, 1.0715174 , 1.1034405, 1.0143966,0.9802365, 0.7177169 , 0.9190783, 0.8408701 ) ,
    y= c (0.8550177, 0.8352162 ,1.0236998, 1.1071665, 0.6768144, 0.8449983 ,0.7616483, 0.8259199, 1.1539598, 1.4125006, 1.0511816, 0.9366184, 1.4101268, 1.2937913, 1.4147219 ,1.2943105 ,0.7859749, 0.6689330, 0.6940164, 0.8093392), names = c("A","C","E","D","G","F","I","H","K","M","L","N","Q","P","S","R","T","W","V","Y"))
ggplot(d, aes(x,y)) + geom_point(shape=1)+geom_smooth(method=lm, se=FALSE, fullrange=T)+geom_text(aes(label=names ,hjust=0))

请帮帮我。

Answer 1

计算相关系数和线性回归的常规方法是外部ggplot。在幕后ggplot2调用lm，至少在method = lm时。问题的解决方案是混合使用lm，cor和geom_text。 @joran在评论中提到的帖子提供了一些很好的提示。