R 将对数曲线绘制为散点图

我面临着一个可能很容易解决的问题：在散点图中添加对数曲线。 我已经创建了相应的模型，现在只需要添加相应的曲线/直线

目前的模式如下：

### DATA
SpStats_urbanform <- c (0.3702534,0.457769,0.3069843,0.3468263,0.420108,0.2548158,0.347664,0.4318018,0.3745645,0.3724192,0.4685135,0.2505839,0.1830535,0.3409849,0.1883303,0.4789871,0.3979671)

co2 <- c (6.263937,7.729964,8.39634,8.12979,6.397212,64.755192,7.330138,7.729964,11.058834,7.463414,7.196863,93.377393,27.854284,9.081405,73.483949,12.850917,12.74407)

### Plot initial plot
plot (log10 (1) ~ log10 (1), col = "white", xlab = "PUSHc values", 
      ylab = "Corrected  GHG emissions [t/cap]", xlim =c(0,xaxes), 
      ylim =c(0,yaxes), axes =F)

axis(1, at=seq(0.05, xaxes, by=0.05),  cex.axis=1.1)
axis(2, at=seq(0, yaxes, by=1), cex.axis=1.1 )


### FIT
fit_co2_urbanform <- lm (log10(co2) ~ log10(SpStats_urbanform)) 


### Add data points (used points() instead of simple plot() bc. of other code parts)
points (co2_cap~SpStats_urbanform, axes = F, cex =1.3)

####数据
SpStats_urbanform首先，如果要在日志空间中绘图，必须使用参数
log=“xy”
指定它：

然后，如果要添加回归线，请使用
abline
：

abline(fit_co2_urbanform)


编辑：如果你不想以对数比例绘图，那么你必须将你的方程
log10（y）=a*log10（x）+b
转换为
y=10^（a*log10（x）+b
，并用
曲线进行绘图：

f <- coefficients(fit_co2_urbanform)
curve(10^(f[1]+f[2]*log10(x)),ylim=c(0,100))
points(SpStats_urbanform,co2)

f如果您提供了一个可重复的示例，您更有可能得到有用的响应。下面是一些关于如何继续的提示。由于您可以从
fit\u co2\u urbanform
对象中检索坡度和截距，只需使用它们来绘制
yHey-非常感谢您的帮助。我已经更改了示例-它现在是一个正在运行的程序。希望任何人都可以添加所需的对数曲线。。。非常感谢！！！！！嗨，谢谢！我很清楚这一点。但是，我并不想绘制线性回归线，而是添加对数曲线，这是由两个变量之间的关系产生的。有什么想法吗？谢谢
f <- coefficients(fit_co2_urbanform)
curve(10^(f[1]+f[2]*log10(x)),ylim=c(0,100))
points(SpStats_urbanform,co2)