使用abline将线性回归线添加到散点图中的每组点时的编码错误

Question

我可以使用一些帮助：

• 将正确的“最佳拟合线”（又名abline添加到我的绘图中]

我有一个称为“ Control”的二级因子变量，在“ consumption_mean”列中具有相应的数据点

[我在这里绘制了两个，但是尝试添加abline，但它根本不会产生我正在寻找的结果（即使col=似乎也不起作用。我将其设置为红色，它会产生黑色。

非常感谢您的帮助

[我想要一条红色的回归线穿过红色的数据点（当Control == 1时，黑色的一条回归线穿过黑色的数据点（当Control == 0时）

df_mean <- read.table("https://pastebin.com/raw/C2dz6bDT", header = T)

df_mean$Control <- as.factor(df_mean$Control)

plot(df_mean$mean_consumption~df_mean$day, type="n")
points(df_mean$day[df_mean$Control=='1'],df_mean$mean_consumption[df_mean$Control=='1'],col='red',pch=15,cex=.8)
points(df_mean$day[df_mean$Control=='0'],df_mean$mean_consumption[df_mean$Control=='0'],col='black',pch=15,cex=.8)
abline(lm(df_mean$mean_consumption~df_mean$day+(df_mean$Control=='1'),lwd=1,lty=1,col="red"))
abline(lm(df_mean$mean_consumption~df_mean$day+(df_mean$Control=='0'),lwd=1,lty=1,col="black"))

注意，不仅线条[[not是红色的，而且为Control == 1设置的第一次回归实际上根本不适合红色点。

Answer 1

这里的事物，

1）您的行没有变成红色，因为您将col和其他参数放入了lm而不是abline中，这可以通过移动其中一个括号来解决。