r - 使用效果包自定义绘图

Question

我尝试从效果包中自定义多线图。

无论如何将下面示例中的图例定位在绘图区域内而不是图形上方？

或者:有谁知道如何使用 ggplot2 绘制由 effects 包计算的多线回归的结果？

我很感激任何帮助。

安迪

示例:

library(effects)
data(Prestige)
mod5 <- lm(prestige ~ income*type + education, data=Prestige)
eff_cf <- effect("income*type", mod5)
print(plot(eff_cf, multiline=TRUE))

Answer 1

这就是你在 ggplot 中绘制效果对象的方式

library(ggplot2)

## Change effect object to dataframe
eff_df <- data.frame(eff_cf)

## Plot ggplot with legend on the bottom
ggplot(eff_df)+geom_line(aes(income,fit,linetype=type))+theme_bw()+
  xlab("Income")+ylab("Prestige")+coord_cartesian(xlim=c(0,25000),ylim=c(30,110))+
  theme(legend.position="bottom")

您可以更改 xlim和 ylim取决于您希望如何显示数据。

输出如下: