绘制具有不同 DV 但比例相同的回归线

【问题标题】：Plot regression lines with different DVs but same scale绘制具有不同 DV 但比例相同的回归线
【发布时间】：2019-04-17 22:47:31
【问题描述】：

我有几个结果变量的数据，这些变量在相同的 0-1 范围内进行评级。我想要一种方法来比较同一图中相同 IV 和不同 DV 之间的回归线。

df <- data.frame(IV = c(2,2,1,4,5,5), DV1 = c(0,0,.25,.25,1,.75), DV2 = c(1,.5,.5,1,.5,.75))

mod1 <- lm(DV1 ~ IV, data = df)
mod2 <- lm(DV2 ~ IV, data = df)

【问题讨论】：

标签： r plot regression

【解决方案1】：

如果您的因变量在规模上具有可比性，则将模型放在一个列表中，并以您的因变量命名，然后迭代、应用点和 abline：

library(ghibli)
models = list(DV1=mod1,DV2=mod2)
pal = rev(as.character(ghibli_palettes$MarnieMedium1))[1:length(models)]
names(pal) = names(models)

plot(NULL,xlim=range(df$IV),ylim=range(c(df$DV1,df$DV2)),ylab="DV",xlab="IV")

for(i in names(models)){

f = as.formula(paste(i,"~ IV"))
points(f,data=df,col=pal[i],ylim = range(c(DV1,DV2)),pch=20)
abline(models[[i]],col=pal[i],lty=4)
}

legend("topleft",fill=pal,c("DV1","DV2"))

【讨论】：