如何在ggplot中取消x轴文本里“subsp.”部分的斜体格式？

我有一个虚构的数据框，记录了非洲狼各亚种与家犬的平均犬齿长度：

library(ggplot2)

canids <- data.frame(matrix(nrow = 7, ncol = 2))
names(canids) <- c("length", "species")
canids[,1] <- runif(7, min=3, max=10)
canids[,2] <- c("C. lupaster subsp. algirensis",
                "C. lupaster subsp. anthus",
                "C. lupaster subsp. bea",
                "C. lupaster subsp. lupaster",
                "C. lupaster subsp. riparius",
                "C. lupaster subsp. soudanicus",
                "C. familiaris")

ggplot(canids, aes(x = species, y = length)) +
  geom_col() +
  xlab("") +
  ylab("Canine length (cm) \n") +
  theme(axis.text.x = element_text(face = "italic", size = 13),
        axis.title = element_text(size = 13))

为遵循命名规范，希望将x轴文本中每个亚种名称里的“subsp.”部分取消斜体，其余部分保持斜体，该如何实现？

可以利用ggplot2支持Markdown语法的特性，通过两步实现需求：

1. 转换分类文本为Markdown格式：用*包裹需要斜体的内容，让"subsp."处于无包裹状态
2. 使用element_markdown()渲染文本：替换theme中的element_text()，使其解析Markdown语法

修改后的完整代码如下：

library(ggplot2)

# 创建数据框
canids <- data.frame(matrix(nrow = 7, ncol = 2))
names(canids) <- c("length", "species")
canids[,1] <- runif(7, min=3, max=10)
canids[,2] <- c("C. lupaster subsp. algirensis",
                "C. lupaster subsp. anthus",
                "C. lupaster subsp. bea",
                "C. lupaster subsp. lupaster",
                "C. lupaster subsp. riparius",
                "C. lupaster subsp. soudanicus",
                "C. familiaris")

# 转换物种名称为Markdown格式：subsp.不斜体，其余内容斜体
canids$species_md <- gsub("(.*) subsp. (.*)", "*\\1* subsp. *\\2*", canids$species)
# 单独处理无subsp.的家犬名称
canids$species_md[canids$species == "C. familiaris"] <- "*C. familiaris*"

# 绘制图表
ggplot(canids, aes(x = species_md, y = length)) +
  geom_col() +
  xlab("") +
  ylab("Canine length (cm) \n") +
  theme(axis.text.x = element_markdown(size = 13),
        axis.title = element_text(size = 13))

代码说明： #

• 正则表达式gsub("(.*) subsp. (.*)", "*\\1* subsp. *\\2*", ...)：匹配"subsp."前后的文本，分别用*包裹实现斜体，"subsp."保留默认样式
• element_markdown(size = 13)：替代element_text()，让ggplot2识别并渲染Markdown格式的文本
• 单独处理家犬名称是因为它不含"subsp."，直接整体设置为斜体即可

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