大家好，又见面了，我是你们的朋友全栈君。
R语言画图——添加数学表达式和R2
代码如下：
filepath <- file.choose()
df1 <- read.csv(filepath, header = T)
df1
library(ggplot2)
QTs <- ggplot(data = df1, aes(x = Ts, y = Q10, shape = factor)) +
geom_point(size = 3) +
scale_shape_manual(values = c(1, 17)) +
#白天的拟合曲线（实线）
stat_function(fun = function(x)1.5015*exp(x*(-0.009)),
color = "black", size = 1) +
#晚上的拟合曲线（虚线）
stat_function(fun = function(x)1.4864*exp(x*(-0.009)),
color = "black", size = 1, linetype = "dashed") +
annotate("text", x = 20, y = 2, parse = TRUE, label = "y == 1.5015*e^{-0.009*x}", size = 4) +
annotate("text", x = 20, y = 1.93, label = "atop(R^2==0.3174)", parse = TRUE) +
theme(panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.background = element_blank(),
axis.line = element_line(colour = "black"),
panel.border = element_rect(colour = "black", fill = NA),
legend.position = "none") +
xlab("Soil temperature")
QTs
如图：截取一部分图片
补充
更详细的说明请点击下面的链接。
R语言画图——添加数学表达式和R2（Ⅱ）
（本文于2021年1月12日9：40修改）
小记
昨天，骚粉光荣退役。
新杯子强势登场！
（本文于2021年1月12日20：13第2次修改）
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
发布者：全栈程序员-用户IM，转载请注明出处：https://javaforall.cn/126226.html原文链接：https://javaforall.cn
【正版授权，激活自己账号】： Jetbrains全家桶Ide使用，1年售后保障，每天仅需1毛
【官方授权 正版激活】： 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...
