如何在ggpubr::ggparagraph()段落中单独设置单个单词为斜体？

要实现段落中单个单词斜体，核心是改用支持局部文本格式的工具，替代仅支持整段格式的ggparagraph()。以下是两种简单可行的方法：

方法1：使用ggtext包的geom_textbox（推荐） #

ggtext包支持在文本中使用Markdown语法，用*包裹单词即可实现斜体，之后将文本转为ggplot对象，再用ggarrange()组合。

步骤如下：

1. 安装并加载所需包：

install.packages(c("ggplot2", "ggtext", "ggpubr"))
library(ggplot2)
library(ggtext)
library(ggpubr)

2. 准备示例ggplot图形：

# 你的目标ggplot图
my_plot <- ggplot(mtcars, aes(wt, mpg)) + 
  geom_point(color = "steelblue") + 
  ggtitle("车辆重量与油耗的关系")

3. 创建带斜体单词的文本图：

# 用Markdown语法标记斜体单词
text_content <- "从图中可以看到，*较重的车辆*通常油耗更高，这符合预期的物理规律。"

text_plot <- ggplot() +
  geom_textbox(
    aes(x = 0, y = 0, label = text_content),
    width = unit(8, "cm"),  # 控制文本宽度
    hjust = 0.5, vjust = 0.5,
    size = 4
  ) +
  theme_void()  # 移除坐标轴和背景，只保留文本

4. 组合图形与文本：

ggarrange(my_plot, text_plot, ncol = 1, heights = c(2, 1))

方法2：使用base R的expression语法 #

如果不想额外安装包，可以用expression()函数构建带格式的文本，通过annotate()添加到空ggplot中：

library(ggplot2)
library(ggpubr)

# 构建带斜体的表达式文本
formatted_text <- expression(
  "从图中可以看到，" * italic("较重的车辆") * "通常油耗更高，这符合预期的物理规律。"
)

text_plot_expr <- ggplot() +
  annotate("text", x = 0, y = 0, label = formatted_text, size = 4) +
  theme_void()

# 组合
ggarrange(my_plot, text_plot_expr, ncol = 1, heights = c(2, 1))

两种方法都能实现单个单词斜体的效果，其中方法1的Markdown语法更直观易读，适合复杂格式的文本需求。

内容的提问来源于stack exchange，提问作者Daniel Sánches García