用R中的ggplot2计算相关系数

可能重复：

我用下面的程序绘制了一个带有回归线的散点图。但是我想计算一下相关系数。如何使用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))

库（ggplot2）
d计算相关系数和线性回归的通常方法是在ggplot之外。发动机罩下ggplot2调用
lm
，至少在
method=lm
时是这样。解决问题的方法是混合使用
lm
、
cor
和
geom\u text
。@joran在评论中提到的帖子提供了一些很好的提示。
计算相关性的R函数是
cor（）
。当你不知道函数名的时候，总是有
库（sos）来帮助你；findFn（“相关性”）