r - 更改 R 中效果图的轴限制

Question

我正在使用 effects 包来绘制线性回归的交互效应，如下所示:

library(effects)
Model <- lm(drat~hp*cyl, data=mtcars)
plot(effect(term="hp*cyl",mod=Model,default.levels=10),multiline=TRUE)

如何更改限制，使它们从 0 变为 10？我试过 ylim=(0,10) 和其他没有效果的变体。或者，可以使用 ggplot2 以相同的方式绘制回归图吗？

Answer 1

这是 ggplot2 版本:

library(effects)
library(ggplot2)
Model <- lm(drat~hp*cyl, data=mtcars)
ef <- effect(term = "hp:cyl", Model, default.levels = 9) # 9 because the breaks are nicer
ef2 <- as.data.frame(ef)

ggplot(ef2, aes(hp, fit, col = factor(cyl))) +
  geom_line() +
  labs(y = 'drat') +
  ylim(0, 10)