如何在r上提取对数对数线性函数的方程

Question

我试图绘制一个图形logxlog并采用线性函数及其方程。想要也有r2，p，F ... 绘制logxlog时，有人知道如何提取线性函数的方程式吗？ 可以在图表中显示吗？你怎么做到的？

非常感谢

下面是我绘制图表的代码：

require(ggplot2)
graph1 <- ggplot(total, aes(y=volume1, x=volume2, colour = casts)) + 
geom_point()

graph1 + 
scale_x_log10() + 
scale_y_log10() + 
geom_smooth(method = "lm", se=FALSE, color="black", formula = y ~ x)