在同一图上绘制回归线答案

【问题标题】：Plotting regression lines on the same plot在同一图上绘制回归线
【发布时间】：2021-07-18 18:34:33
【问题描述】：

这里有问题

在这里，我试图在一个图上绘制多个图。我可以单独绘制图，但如何组合线性回归图？

这是我迄今为止尝试过的 -

qclm1<-lm(C~Y, data = qc)
summary(qclm1)
plot(Y, C)
abline(qclm1)

ggplot(data=data.frame( y=c(60,45,75,80,65,95,100,85,115),c=c(46,31,61,58,43,73,70,55,85) ), aes(x=y,y=c)) + 
  geom_point(shape = 1) +
  geom_abline(intercept = 10, slope = 0.6, col = "red") +
  geom_hline(yintercept = 0) +
  geom_vline(xintercept = 0)

qclm2<-lm(C~I,data=qc)
plot(I, C)
abline(qclm2)

我想把所有的线合并成一张图。

【问题讨论】：

标签： r ggplot2 plot regression

【解决方案1】：

如果你更喜欢ggplot2，试试

data <- data.frame(C = rep(c(46,31,61,58,43,73,70,55,85), 2), 
                   type = rep(c('Y', 'I'), each = 9), 
                   value = c(60,45,75,80,65,95,100,85,115, 14, 14, 14, 22, 22, 22, 30, 30, 30))


ggplot(data, aes(value, C, col = type)) +
  geom_point() +
  geom_smooth(method = 'lm')

【讨论】：