在ggplot 2 2.0中向facet贴标机添加表达式

Question

我需要用复杂的表达式替换一个facet wrap标签。但是，我无法让函数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, ")"))))

in

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

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

感谢任何帮助。

Answer 1

在您的示例中，似乎只有4个标签用于5个方面，但您可以使用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)