ggplot：斜体部分动态生成的标题答案

【问题标题】：ggplot: italicize part of dynamically generated titleggplot：斜体部分动态生成的标题
【发布时间】：2017-08-04 06:11:24
【问题描述】：

我正在为多个绘图创建动态生成的标题。例如，下面是我正在尝试制作的 3 个绘图标题。

title_list = c("awesome", "amazing", "fantastic")

title suffix = "title"

预期的剧情标题：awesometitle、amazingtitle、fantastic em> 标题。

注意“title”不是斜体，但“awesome”、“amazing”和“fantastic”是斜体。我怎样才能创建这样的标题？

【问题讨论】：

标签： r ggplot2

【解决方案1】：

您可以为此使用bquote。在bquote 中，将评估包裹在.() 中的表达式。

p = list()
for (i in seq_along(title_list)) {
    p[[i]] = ggplot(mtcars, aes(wt, mpg)) +
        geom_point() +
        labs(title = bquote(italic(.(title_list[i])) ~ .(title_suffix)))
}

gridExtra::grid.arrange(p[[1]], p[[2]], p[[3]])

一个非常相关的问题是this one。

【讨论】：

【解决方案2】：

如果有人好奇，我想通了。

plot_title <- substitute(paste(italic(x), "title", sep=" "), list(x=title_list))

p + labs(title=plot_title)

【讨论】：