这是我的问题:
1)我运行了多元线性回归:假设像:
lm(attitude~quality+price+location+Income)
我主要关心态度和质量之间的关系,其他变量是控制变量.
2)然后我想在态度和质量之间做一个散点图.这很容易:
Q <-ggplot(data=data, aes(x=quality, y=attitude))
Q + geom_point(size = 1)
3)我还想绘制x和y之间的拟合线,斜率应该是多元线性回归的偏回归系数.也就是说,它应该是以下公式中的b1:attitude = b1*quality + b2*price + b3*location + b4*Income,而不是以下公式中的b:attitude = b*quality.因此,以下代码无法正常工作,因为它将绘制b而不是b1的斜率.
g <- g + geom_smooth(method = lm)
有人问了一个非常相似的问题,请看这里
提供的答案看起来像这样(替换为我的变量):
g <- g + geom_smooth(data=data, aes(x=quality, y=attitude, ymin=lcl, ymax=ucl))
但是,这是一个LOWESS图(正如您可以看到帖子中的图所示),而不是线性直线图.
我的问题:如何在置信区间带上添加斜率b1的直线？