r - 如何使用 visreg 和 ggplot2 更改轴标签

Question

我正在使用该visreg软件包gg = TRUE（因此它将使用ggplot2图形）来渲染我的拟合模型图。

它会自动使用自变量因子的名称作为 x 轴标签，但我需要它们的外观略有不同，并尝试使用此处scale_x_discrete可以看到的更改标签文本。

但是当我这样做时，x 轴标签、轴线及其标题变为空白。我相信我无法将参数映射labels到breaks参数。

我也收到消息

“x”的比例已经存在。为“x”添加另一个比例，它将替换现有比例。

问题可能在于如何visreg存储变量（及其级别）信息。单独使用ggplot2时，可以使用data$variablename. 但是通过visreg这个创建基本情节并不是那么简单。

我已经尝试过的：

• 使用默认绘制的变量级别名称作为中断。
• 尝试使用 访问变量级别fit$xlevels$Species。
• 猜测visreg可能是将整数归为级别并尝试使用 breaks = c(as.factor("1","2","3")).

如何重现问题：

library(visreg)
library(ggplot2)

data(iris)
fit <- lm(Sepal.Length ~ Species, data = iris)

visreg(fit, gg = T) +
  theme(axis.line = element_line(colour = "black")) +
  scale_x_discrete(breaks = c("setosa", "versicolor", "virginica"),
                   labels = c("SETOSA", "VERSICOLOR", "VIRGINICA"))

# ----------------------- OR the equivalent: 

visreg(fit, gg = T) +
  theme(axis.line = element_line(colour = "black")) +
  scale_x_discrete(labels = c("setosa" = "SETOSA",
"versicolor" = "VERSICOLOR", "virginica" = "VIRGINICA"))

在不尝试更改标签的情况下 x 轴的外观：

library(visreg)
library(ggplot2)

data(iris)
fit <- lm(Sepal.Length ~ Species, data = iris)

visreg(fit, gg = T) +
  theme(axis.line = element_line(colour = "black"))

Answer 1

我建议这个简单的解决方案：

library(visreg)
library(ggplot2)

data(iris)
iris$Species <- factor(iris$Species, labels=c("SETOSA", "VERSICOLOR", "VIRGINICA"))

fit <- lm(Sepal.Length ~ Species, data = iris)
visreg(fit, gg = T)