网格中的绘图排列标题答案

【问题标题】：plotmath in gridarrange title网格中的绘图排列标题
【发布时间】：2017-01-12 03:32:01
【问题描述】：

我在列表中有 ggplot 图，比如说

plts <- list(plt1=qplot(1:10),plt2=qplot(2:3))

我想使用 grid.arrange 和标题来绘制：

do.call(grid.arrange,c(plts,top='a title'))

困难在于我想在 grid.arrange 标题中添加一些绘图表达式。如果我这样做了

do.call(grid.arrange,c(plts,top=expression('a title[2]') ))

R 将 do.call 的第二个参数强制为表达式类型而不是列表，并且 do.call 会引发错误。我尝试将课程手动设置为“列表”，但无济于事。解决这个问题的正确方法是什么？

【问题讨论】：

标签： r ggplot2

【解决方案1】：

根据grid.arrange的手册：

顶部可选字符串，或 grob

所以为了使用表达式，你应该提供一个 grob。例如，如果要将2 绘制为下标：

library(grid)
grid.arrange(grobs = plts,top= grid.text(expression('a' ~ title[2])))
# or
do.call(grid.arrange, list(grobs = plts,top = grid.text(expression('a' ~ title[2])) ))

【讨论】：