如何在facet_wrap上方添加多行geom_text并使部分行呈斜体？

首先回答你的问题：是的，可以用expression()和paste()来实现，但还有更简洁的方案（比如借助ggtext包支持markdown格式）。下面分别给出具体实现：

方法1：使用expression()和paste() #

需要将每个标签转换为表达式，用italic()包裹需要斜体的中间行，同时通过paste()结合\n实现换行。注意必须开启parse = TRUE参数来解析表达式。

修改后的代码：

library(ggplot2)

p <- ggplot(mtcars, aes(mpg, wt)) +
  geom_point() +
  facet_grid(. ~ cyl)

# 构造带表达式的标签列表
theText <- data.frame(
  label = list(
    expression(paste("Facet 1: Line 1\n", italic("Line 2 in italics"), "\nLine 3 not ital")),
    expression(paste("Facet 2: Line 1\n", italic("Ital here"), "\nBut not here")),
    expression(paste("Facet 3: Line 1\n", italic("Also ital"), "\nNo ital here"))
  ),
  cyl = c(4,6,8)
)

p + geom_text(data    = theText,
              mapping = aes(x = -Inf, y = -Inf, label = label),
              x  = 10, y=6,
              hjust = 0, vjust = -1,
              parse = TRUE) +  # 关键：开启表达式解析
  coord_cartesian(ylim = c(0, 6), clip = 'off') +   
  theme(plot.margin = unit(c(5,1,1,1), "lines"), 
        strip.background = element_blank(),
        strip.text = element_blank())

方法2：使用ggtext包的markdown语法（更直观） #

如果觉得表达式写法繁琐，推荐用ggtext包的geom_richtext()，直接用markdown的*标记斜体内容，代码可读性更强。

代码示例：

library(ggplot2)
library(ggtext)  # 需要先安装：install.packages("ggtext")

p <- ggplot(mtcars, aes(mpg, wt)) +
  geom_point() +
  facet_grid(. ~ cyl)

# 用markdown语法编写标签（中间行用*包裹）
theText <- data.frame(label = c("Facet 1: Line 1\n*Line 2 in italics*\nLine 3 not ital",
                                "Facet 2: Line 1\n*Ital here*\nBut not here",
                                "Facet 3: Line 1\n*Also ital*\nNo ital here"),
                      cyl = c(4,6,8))

p + geom_richtext(data    = theText,
                  mapping = aes(x = -Inf, y = -Inf, label = label),
                  x  = 10, y=6,
                  hjust = 0, vjust = -1,
                  fill = NA, label.color = NA) +  # 去掉背景和边框
  coord_cartesian(ylim = c(0, 6), clip = 'off') +   
  theme(plot.margin = unit(c(5,1,1,1), "lines"), 
        strip.background = element_blank(),
        strip.text = element_blank())

两种方法都能实现目标效果，其中ggtext的markdown方式更简洁易懂，日常使用更推荐。

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