如何在R ggplot2的坐标轴文本中设置部分文字为斜体

要实现细菌物种名（如Escherichia coli）斜体、菌株名（如Strain 1）保持常规格式的需求，有两种实用方法：

方法1：使用base R表达式解析（无需额外包） #

利用R的表达式系统，将每个细菌名称拆分为物种和菌株部分，分别设置格式后让ggplot解析：

1. 提取唯一细菌名称并转换为格式化表达式：

# 获取唯一的细菌类别
unique_bacteria <- unique(MyDF$Bacteria)

# 生成带格式的表达式：物种名斜体，菌株名常规
formatted_labels <- lapply(unique_bacteria, function(x) {
  parts <- strsplit(x, " Strain ")[[1]]
  bquote(italic(.(parts[1])) ~ "Strain" ~ .(parts[2]))
})

# 命名列表确保标签与原类别对应
names(formatted_labels) <- unique_bacteria

2. 修改绘图代码应用格式化标签：

library(ggplot2)

MyPlot <- ggplot(data = MyDF, aes(x = Activity, y = Bacteria)) +
  xlab("Activities") +
  ylab("Strains") +
  scale_y_discrete(labels = formatted_labels) +  # 启用格式化标签
  theme(axis.text.y = element_text(size = 10, family = "serif"))  # 不再全局设置斜体

MyPlot

方法2：使用ggtext包（Markdown格式，更直观） #

如果需要更灵活的文本格式控制，推荐使用ggtext包，支持直接用Markdown语法标记斜体：

1. 安装并加载ggtext包：

install.packages("ggtext")
library(ggtext)

2. 将细菌名称转换为Markdown格式：

# 用*包裹物种名，标记为斜体
MyDF$Bacteria_formatted <- gsub("(.*) Strain (.*)", "*\\1* Strain \\2", MyDF$Bacteria)

3. 修改绘图代码渲染Markdown文本：

MyPlot <- ggplot(data = MyDF, aes(x = Activity, y = Bacteria_formatted)) +
  xlab("Activities") +
  ylab("Strains") +
  scale_y_discrete(labels = unique(MyDF$Bacteria_formatted)) +
  theme(axis.text.y = element_markdown(size = 10, family = "serif"))  # 用element_markdown替代element_text

MyPlot

方法对比 #

• 方法1无需额外依赖，适合轻量需求；
• 方法2支持更多格式（如加粗、颜色），语法更易读，适合复杂文本场景。

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