Question

我正在做与lm关系的图形，我想存档并为每个图形绘制一个带有R²的等式y=ax+b。我该怎么做？

lmfit <- geom_smooth(method="lm", se = T)

p <- qplot(x, y, data=Tab) + facet_grid(id ~., scales = "free") + lmfit

Answer 1

在ggplot内，没有直接的方法可以做到这一点。您需要为每个id分别计算回归，然后从每个等式中提取等式和R ^ 2。将这些提取的版本放在数据框中（以及id）并使用geom_text来显示它们。