仅带abline的ggplot2

Question

我正在遵循ggplot文档中的一个例子

这是代码：

library(plyr)
coefs <- ddply(mtcars, .(cyl), function(df) {
  m <- lm(mpg ~ wt, data=df)
  data.frame(a = coef(m)[1], b = coef(m)[2])
})

p <- ggplot(mtcars, aes(x = wt, y=mpg), . ~ cyl) + geom_point()
p + geom_abline(data=coefs, aes(intercept=a, slope=b))

不过，我想要相同的图形与‘same’的唯一！没有点！试着：

p <- ggplot(mtcars, aes(x = wt, y=mpg), . ~ cyl)
p + geom_abline(data=coefs, aes(intercept=a, slope=b))

给我一个错误：‘参数“"env”是缺少的，没有默认的

Answer 1

您可以使用geom_blank()，它将计算极限(等)，但让您只使用geom_abline

p + geom_blank() + geom_abline(data=coefs, aes(intercept=a, slope=b))

​

​