r - 使用 ggplot2 boxplot 中的表达式和 R 中的 facet_grid 单独更改 x 标签

Question

使用 facet_grid 时，我想单独更改 ggplot2 boxplot 的 x 标签。我做了以下简单的例子：

library(ggplot2)

data1 <- InsectSprays
data1$group <- "group 1"
data2 <- InsectSprays
data2$group <- "group 2"

plotData <- rbind(data1, data2)

ggplot(plotData, aes(x=spray, y=count, fill=spray))+
guides(fill=FALSE) +
facet_grid(. ~ group) +
geom_boxplot()

我想更改 x 轴（A、B、C、...）上的标签，但要单独更改两组。更改标签的一种方法是使用：

scale_x_discrete(labels=c("label 1", "label 2", ...))

但这会将两组中的标签更改为相同的值。最后，我还需要能够对标签使用表达式。有什么方法可以实现我想要的吗？

编辑：

有一种非常简单的方法可以解决我的问题（感谢@Axeman）。通过使用：

scale_x_discrete(labels=c('A' = expression(beta)))

我可以更改标签。在我的示例中，这将更改两个组，但对我而言，可以事先将标签重命名为单个标签，而不是使用此技巧为标签使用表达式。

Answer 1

plotData$x <- interaction(plotData$spray, plotData$group)
plotData$x <- factor(plotData$x, labels = paste('labels', 1:12))

ggplot(plotData, aes(x=x, y=count, fill=spray))+
    geom_boxplot(show.legend = FALSE) +
    facet_grid(. ~ group, scales = 'free')

我本来期望以下工作，但事实并非如此！

ggplot(plotData, aes(x=interaction(spray, group), y=count, fill=spray))+
  geom_boxplot(show.legend = FALSE) +
  facet_grid(. ~ group, scales = 'free') +
  scale_x_discrete(labels = paste('labels', 1:12))