ggplot：italicize动态生成的标题

Question

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

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

title suffix = "title"

预定的情节标题： 棒极了标题， 惊人的标题， 精彩 em> title 。

注意“标题”不是斜体，而是“令人敬畏”，“惊人”和“奇妙”。我怎样才能创建这样的标题？

Answer 1

如果有人好奇，我想出来了。

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

p + labs(title=plot_title)

Answer 2

您可以使用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]])

一个非常相关的问题是。