R语言绘图，分组添加拟合线，单独标注拟合函数和R2

#R语言绘图，分组添加拟合线，单独标注拟合函数和R2| 来源: 网络整理| 查看: 265

R语言绘图，分组添加拟合直线，并标注拟合函数和R2，实现分面后的数据单独自由的标注

#查看数据 head(iris) str(iris)

对不同物种（Species）的萼片长度（Sepal. Length）与宽度（Sepal. Width)作

#加载包 library(ggplot2) #绘图 ggplot(iris,aes(Sepal.Width,Sepal.Length))+ geom_point()+ stat_smooth(method=lm, level=0.99)+ #facet_wrap(~Species）#不同物种进行分面，共用一个y轴 facet_wrap(~Species,scales="free")#不同物种进行分面，scales="free"坐标轴独立自由

#加载包 library(ggpmisc) #绘图 #加入拟合函数和R2 ggplot(iris,aes(Sepal.Width,Sepal.Length,color=Species))+ geom_point()+ stat_smooth(method=lm, level=0.99)+ facet_wrap(~Species,scales="free")+ stat_poly_eq( aes(label =paste(..eq.label.., ..adj.rr.label.., sep = '~~')), formula = y ~ x, parse = TRUE, family="serif", size = 3.6, color="black", label.x = 0.1, #0-1之间的比例确定位置 label.y = 1)

我们发现拟合公式与数据点之间有重叠，想自己在随意为之上加拟合公式的标注

#设定标注的文本 data_text

【本文地址】

公司简介

联系我们