R语言 向散点图添加带P值的相关系数

在这篇文章中，我们将讨论如何在R编程语言中为散点图添加带有P值的相关系数。

为了在散点图中添加带P值的相关系数，我们使用R语言中ggpubr包的stat_cor()函数。ggpubr包提供了一些易于使用的函数来创建和定制ggplot2图。stat_cor()函数用于在散点图中添加带有P值的相关系数。stat_cor()函数以方法为参数，决定我们需要在散点图上添加哪个相关系数，例如，皮尔逊、斯皮尔曼或肯德尔系数。为了调整散点图上标签的位置，我们使用 label.x 和 label.y 参数。

语法

plot + stat_cor( method, label.x, label.y )

参数

• method： 决定用于相关系数的方法，如Pearson, Spearman或Kendall。
• label.x： 决定标签的X轴位置。
• label.y： 决定标签的y轴位置。

例1： 皮尔逊相关系数

这里，是一个具有皮尔逊相关系数的散点图。

# load library ggplot2
library(ggplot2)
library(ggpubr)
  
# create sample data
x= rnorm(1000)
y= x+rnorm(1000,0,10)
sample_data<- data.frame(x,y)
  
# Draw scatter plot with pearson correlation 
# coefficient
ggplot( sample_data, aes( x=x, y=y ))+
geom_point()+
stat_cor(method = "pearson", label.x = -5, label.y = 30)

输出

例2： Spearman相关系数

这里，是一个带有Spearman相关系数的散点图。

# load library ggplot2
library(ggplot2)
library(ggpubr)
  
# create sample data
x= rnorm(1000)
y= x+rnorm(1000,0,10)
sample_data<- data.frame(x,y)
  
# Draw scatter plot with spearman correlation 
# coefficient
ggplot( sample_data, aes( x=x, y=y ))+
geom_point(pch=10)+
stat_cor(method = "spearman", label.x = -5, label.y = 30)

输出