r - 在ggplot 2 2.0中将表达式添加到构面标签器

我需要用一个复杂的表达式替换一个多面包装标签。但是，我无法使用功能facet_wrap_labeller来处理在较旧的ggplot2版本下创建的图。

        data <- as.data.frame(matrix(rnorm(60),20,3))
        data$factor <- c(rep("f1", 4),rep("f2", 4), rep("f3", 4), rep("f4",4),rep("f5", 4))
        names(data) <- c("A", "B", "C", "factor")
        melted <- melt(data)

        p <- ggplot(melted, aes(variable, value)) +
             stat_boxplot(geom ='errorbar') +
             geom_boxplot()
        p1 <- p + facet_wrap(~factor)
        facet_wrap_labeller(p1, labels=c("A", "B", expression({}^2*italic(D)~textstyle(group("(", rarefied, ")")))))

我得到：

Error in getGrob(gg[[strips[ii]]], "strip.text", grep = TRUE, global = TRUE) :
  it is only valid to get a child from a "gTree"
Called from: getGrob(gg[[strips[ii]]], "strip.text", grep = TRUE, global = TRUE)

我相信这是由于ggplot2 2.0与该功能不兼容而发生的。

我也尝试了labeller=labeller()和labeller=bquote()参数，但是当我尝试使用此向量时

newlabels <- c(A="A", B="B",,
    D=expression({}^0*italic(D)~textstyle(group("(", rarefied, ")"))))

在

p1 <- p + facet_wrap(~factor,
           labeller = labeller(factor=newlabels))

该表达式将被忽略，并绘制原始因子水平。使用bquote，我不知道在参数中添加多个名称。

任何帮助表示赞赏。

最佳答案

在您的示例中，似乎只有5个方面的4个标签，但是您可以使用labeller=label_parsed并相当容易地重命名因子级别，而无需其他功能。

## Rename levels (I used data.table::melt, so they were characters)
melted$factor <- factor(melted$factor,
                        levels=paste0('f', 1:5),
                        labels=c('A', 'B', 'C', '{}^0*italic(D)~plain((rarefied))', 'E'))

p <- ggplot(melted, aes(variable, value)) +
  stat_boxplot(geom ='errorbar') +
  geom_boxplot()
p + facet_wrap(~factor, labeller=label_parsed)

关于r - 在ggplot 2 2.0中将表达式添加到构面标签器，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/34979931/