可以R创建这样的情节吗？

Question

下图（摘自统计电子教科书）显示了电视广告收入和相关销售的一些假设数据。为数据拟合一条线，然后显示每个数据点的误差。是否存在使用本机plot（）函数或ggplot2存在的预先创建的图？

Answer 1

在基地R

## Example data
x = runif(50, 0,300)
y = 5 + x/20 + rnorm(50,0,3)

plot(x,y, pch=20, col="red")
LM = lm(y ~x)
abline(LM)
segments(x, LM$fitted.values, x, y)