相关性点图

相关性点图如何绘制？

1. 点图绘制
2. 拟合曲线
3. 添加相关性

废话不多说，直接上图 ：

相关性点图

代码：

library(ggplot2)
library(ggpubr)            #stat_cor()的依赖包
###绘图，自定义了主题，这一部分每次使用不用改动
mytheme <- theme(axis.text.x=element_text(size=12), 
                 axis.text.y=element_text(size=12), 
                 axis.title=element_text(size = 13), 
                 legend.text=element_text(size=12),
                 legend.title=element_text(size=12),
                 axis.line = element_line(size=0.7), 
                 panel.border = element_blank(),
                 panel.grid = element_blank())
#---------------------------------------------------------------
###绘图
#dd1$FEV1,dd1$c1的相关性
#plot(dd1$FEV1,dd1$c1)#简单看一下点图及相关性
#cor.test(dd1$FEV1,dd1$c1)  #与下面存在差异，这里使用的spearman.test

pdf("FEV1-c1 cor plot.pdf",width = 5.5,height = 3.5)

ggplot(data = dd1,aes(FEV1,c1))+                           
  geom_point(size=2,color="#be0032")+
  stat_smooth(method = "lm",se = F,colour='#80daeb')+
  stat_cor(method="pearson",label.x = 70, label.y = 38,    #r p 位置可以改动 70，40
           cor.coef.name = "r" ,output.type= "text")+
  theme_bw()+
  xlab("FEV1% Predicted")+    #横坐标标签
  ylab("")+                   #纵坐标标签
  mytheme

dev.off()

参考

1. stat_cor function - RDocumentation

2. 颜色选择 Cyan Color Codes / Shades of Cyan (html-color.codes)