沿一个刻面轴解析标签，沿另一个刻面轴未解析标签答案

【问题标题】：parsed labels along one facet axis, unparsed labels along the other沿一个刻面轴解析标签，沿另一个刻面轴未解析标签
【发布时间】：2016-09-20 20:00:03
【问题描述】：

我正在尝试找到一种方便的解决方案，以解决一个场景维度的多行纯文本标签和其他刻面维度的 plotmath 风格的数学表达式。多行条形标签的各种解决方案（例如here）对我来说有点笨拙；我在snake_case 中有因子标签，并且希望能够以编程方式将它们全部转换为多行版本，而不会下降到substitute(bquote(parse(...)) 地狱（尽管也可以接受这些方面的解决方案）。

我的方向是（尝试）编写一个自定义标签器，该标签器将应用 label_parsed() 或根据标签是否包含换行符不理会标签。对于已解析的内容，我似乎无法获得完全正确的语法。多行，未解析的东西的当前结构是

List of 1
 $ : chr [1:4] "peak\ntime" "peak\nvirulence" "equilibrium\nvirulence" "relative\npeak"

这可行，但解析的东西是

List of 3
 $ :List of 1
  ..$ :  expression(beta)
 $ :List of 1
  ..$ :  expression(gamma)
 $ :List of 1
  ..$ :  expression(x[1])

没有。将unlist(r) 和unlist(r,recursive=FALSE) 应用于此结构都会给出错误消息...

结果（如下所示）是所有三个已解析的标签都堆积在第一列中...

?label_parsed 说

返回值必须是一个矩形列表，其中每个“行” 表征一个方面。列表元素可以是字符向量或绘图表达式列表。当多个返回元素，它们会显示在自己的新行上（即，每个方面都有一条多行标签）。

设置：加载包，定义新旧标签

library(ggplot2); theme_set(theme_bw())
orig_sum_labs <- c("peak_time","peak_vir","eq_vir","rel_peak")
new_sum_labs <- c("peak time","peak virulence","equilibrium virulence",
                  "relative peak")
fake <- data.frame(f1=rep(orig_sum_labs,each=12),
                   f2=factor(rep(1:3,16),levels=1:3,
                             labels=c("beta","gamma","x[1]")),
                   x=rep(1:4,12),y=rep(1:4,12))

将换行符放入标签中：

nn <- gsub(" ","\n",new_sum_labs)
fake$f1 <- factor(fake$f1,levels=orig_sum_labs,labels=nn)

我的贴标机功能：

L <- function(labels,multi_line=TRUE) {
    r <- if (all(grepl("\n",labels[[1]]))) {
        list(as.character(labels[[1]]))
    } else {
        label_parsed(labels[[1]],multi_line=multi_line)
    }
    ## browser()
    return(r)
}
class(L) <- "labeller"

试试看：

ggplot(fake,aes(x,y))+geom_point()+
    facet_grid(f1~f2,labeller=L)

【问题讨论】：

我解决了这个问题（见下文）；如果它看起来没有用，我可以删除它...

标签： r ggplot2 facet

【解决方案1】：

哎呀。这有点神奇（我很乐意接受清楚地解释发生了什么的答案），但我设法解决了我的问题。在我上面的贴标签功能中，

label_parsed(labels[[1]],multi_line=multi_line)

没用，但是

label_parsed(labels,multi_line=multi_line)

工作...

【讨论】：