如何在双对数图（r）中绘制两个线性回归？

我正在努力研究如何在r中创建双对数图，以及如何在此图中绘制两个线性回归。我已经成功地将x轴转换为对数轴，但无法将y轴转换为对数轴

我使用的代码是这样的，它在下面的链接中创建了绘图：

PR_abs <- lm(PR.Interval..s. ~ log.BM., data = rest)
PR_abs.d <- lm(PR.Interval..s. ~ log.BM., data = dist[4:21,])
   plot(rest$Body.Mass..kg.,rest$PR.Interval..s., xlab = "", type="n", 
    ylab= "PR duration (sec)", pch=20, ylim= c(0,1), log="x", cex=1.4)
points(rest[1:3,]$Body.Mass..kg., rest[1:3,]$PR.Interval..s., cex=1.2,pch=17)
points(rest[4:21,]$Body.Mass..kg., rest[4:21,]$PR.Interval..s., cex=1.2, pch=16)
points(rest[4:21,]$Body.Mass..kg., dist[4:21,]$PR.Interval..s., cex=1.2, pch=1)
lines(rest$Body.Mass..kg.,PR_abs$fitted.values)
lines(rest[4:21,]$Body.Mass..kg.,PR_abs.d$fitted.values,lty=2)
legend("topleft", c("Rest","Exercised","Embryo"), cex=0.8, bty="n", lty=c(1,2,0),
   pch=c(16,1,17))

有什么建议吗？：）

---

最好的，Ditte

请提供一个可复制的示例，即您的一些数据，例如使用

dput

。您有

log=“x”、

您有没有尝试过

log=“xy”、

？

log

：如果x轴是对数的，则包含“x”；如果y轴是对数的，则包含“y”以及“xy”或“yx”的字符串如果两个轴都是对数的。是的，我试过“xy”，它会导致y轴的对数变换——当然，我的回归线不再是线性的了。我能解决这个问题吗？谢谢你的回答！

ggplot(data = rest, aes(x = Body.Mass..kg., y = QT..RR)) +
  geom_point(data = rest, aes(x = Body.Mass..kg., y = QT..RR), shape=1)+
  geom_abline(aes(intercept=coef(QT_rel)[1],slope=coef(QT_rel)[2])) +
  coord_trans(y="log2", x="log2")