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

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

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

title suffix = "title"

预期剧情标题：精彩标题，精彩标题，精彩标题

---

请注意，“标题”不是斜体，而是“很棒”、“了不起”和“棒极了”。我怎样才能创作出这样的标题？

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

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

p + labs(title=plot_title)

---

plot\u title您可以为此使用
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]])


一个非常相关的问题是