• 今天有人提问，所以顺便拿出来分享一下：

1. 根据数据进行绘图：

#安装一些相关的包：
#install.packages("ggpmisc")
#install.packages("ggpubr")
library(ggplot2)
library(ggsave)

df=diamonds[sample(1:dim(diamonds)[1],40),]
df$price=df$price / 10000
p=df%>%ggplot(aes(carat,price))+
  geom_point(size=4,alpha=0.3,color="#6baed6")+
  geom_smooth(method = "lm", formula = y~x, color = "#756bb1", fill = "#cbc9e2")+ #颜色选自https://colorbrewer2.org/
  theme_bw()+
  theme(
    panel.grid.major = element_blank(),panel.grid.minor = element_blank()
  )
p

image.png

• 进行修饰：即添加公式等

library(ggpubr)
p+stat_cor()

image.png

library(ggpmisc)
p+stat_poly_eq(aes(label=paste(..eq.label..,..adj.rr.label..,..p.value.label..,sep = "~~~~")),formula = y~x,parse=T,size=2.5)

image.png

这一行paste()中的内容是一个类似Latex的表达，“~”表示空格，parse=T表示将这个语句翻译成可读形式；size=2.5表示字体大小

cor=round(cor(df$carat,df$price),2)
p+stat_poly_eq(aes(label=paste("italic(r)~`=`~",cor,sep = "")),formula = y~x,parse=T,size=4)

image.png

* 添加对应值的位置的调整：
p+stat_poly_eq(aes(label=..eq.label..),formula = y~x,
               parse=T,size=4)+
  stat_cor(label.y=2.9,size=4)

image.png

• 对于换行与对数值间距离的解释：
• 更改了距离，所以出来下面的图：
  stat_cor(label.y=1.5,size=4)

p+stat_poly_eq(aes(label=..eq.label..),formula = y~x,
               parse=T,size=4)+
  stat_cor(label.y=1.5,size=4)

image.png

• 保留两位小数问题：

x=0.1212
y= round(x, digits = 2) 
y

image.png