如何在非flextable对象的patchwork标题中设置部分内容斜体

问题原因 #

你调用的italic()是flextable包中的函数，而patchwork的plot_annotation()标题需要的是ggplot支持的**绘图表达式（expression）**语法，两者不兼容，因此触发报错。

解决方案1：使用ggplot表达式语法 #

用基础绘图系统的表达式语法生成带斜体的标题，无需额外依赖包：

species <- "Castanea sativa"
# 用bquote将变量插入表达式
plot_title <- bquote("Ex title" ~ italic(.(species)))

library(patchwork)
# 假设p1-p4是已生成的ggplot对象
patchwork <- p1 | (p2/p3/p4) +
  plot_annotation(
    title = plot_title,
    theme = theme(plot.title = element_text(size = 20, face="bold", hjust = 0.5))
  )

patchwork

说明：bquote()可将变量（.(species)）插入表达式，~用于连接普通文本和斜体内容，这里的italic()是绘图表达式的一部分，和flextable的函数无冲突。

解决方案2：用ggtext支持Markdown格式（更直观） #

如果习惯Markdown语法，可借助ggtext包实现，直接用*包裹需要斜体的内容：

library(patchwork)
library(ggtext)

species <- "Castanea sativa"
plot_title <- paste0("Ex title *", species, "*")

patchwork <- p1 | (p2/p3/p4) +
  plot_annotation(
    title = plot_title,
    theme = theme(
      plot.title = element_markdown(size = 20, face="bold", hjust = 0.5)
    )
  )

patchwork

说明：element_markdown()是ggtext提供的主题元素，能解析标题中的Markdown格式，斜体、粗体等格式都可直接用Markdown语法实现。

若你的环境同时加载了flextable包，建议用grDevices::italic()明确指定绘图用的italic函数，避免函数名冲突。

内容的提问来源于stack exchange，提问作者Tristan