从基于格的调用更改绘图调用中的刻度标签

Changing the tickmark labels in a plot call from a lattice-based call

有没有办法在下面的 plot(allEffects(), ...) 调用中更改刻度标签(下面 两个红色 的标签)?

我只想在 plot(m1, ...) 中将它们更改为 "A""B"(不是通过 CO2 数据或 m1 模型)。

?effects::plot.eff 似乎没有提供太多指导。

#================ Fully Reproducible Example
library(effects)

m1 <- lm(uptake ~ Treatment, data = CO2)
plot(allEffects(m1))

我们可能会更改模型中 'Treatment' 的 xlevels

library(effects)
m1$xlevels$Treatment <- c("A", "B")
plot(allEffects(m1))

-输出


如果我们不想更改模型本身,则从 allEffects 输出创建一个对象并更改其中的级别

e1 <- allEffects(m1) 
levels(e1$Treatment$x$Treatment) <- c("B", "A")
e1$Treatment$variables$Treatment$levels <- c("A", "B")
plot(e1)