ggplot散点图+对数曲线拟合

方法一：比较简单无脑，但是曲线到不了第一个点，也不够平滑，不建议使用

#加载R包
> library(ggplot2)
> library(ggpubr)

#测试数据
> head(df)
  x          y
1 1 -0.2920901
2 2  0.7019822
3 3  0.8598798
4 4  1.2389459
5 5  1.5347142
6 6  1.7790190

#绘图
> ggplot(df, aes(x, y)) +  # 创建一个散点图
  geom_point() +  # 添加散点图层
  geom_smooth(data = df, aes(x = x, y = y), method = "loess", se = FALSE) +  # 添加平滑曲线层,方法为"loess"，隐藏置信区间
  theme(panel.grid = element_blank(),  # 隐藏网格线
        panel.background = element_rect(color = 'black', fill = 'transparent'))# 设置绘图区域背景

方法二：需要自己计算公式，但是曲线有始有终，比较平滑

> head(df)#测试数据
  x          y
1 1 -0.2920901
2 2  0.7019822
3 3  0.8598798
4 4  1.2389459
5 5  1.5347142
6 6  1.7790190
> fr <- lm(formula = y ~ log(x),data = df)#使用lm()函数执行线性回归分析
> b <- coefficients(fr)[1]#提取回归模型的截距
> a <- coefficients(fr)[2]#提取回归模型的斜率
> ggplot(df, aes(x, y)) +  # 创建一个散点图，x轴表示自变量x，y轴表示因变量y
  geom_point() +  # 添加散点图层
  stat_function(fun = function(x) a*log(x)+b, size=0.8, color="#9E0142") +  # 添加拟合的回归线层，线粗细调整为0.8并调整线的颜色
  theme(panel.grid = element_blank(),  # 隐藏网格线
        panel.background = element_rect(color = 'black', fill = 'transparent'))  # 设置绘图区域背景