如何在ggplot图例中对特定物种名称文本设置斜体？

安全阿岳

2026-6-15

解决方法

要实现图例中物种名称斜体的效果，你需要结合ggtext包解析markdown格式文本，并调整ggplot的图例标签和主题设置。以下是完整的可运行代码示例：

步骤1：安装并加载所需包

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

步骤2：创建模拟数据集

set.seed(123) # 保证结果可重复
TM_M_WILD <- data.frame(
  Age = sample(0:40, 50, replace = TRUE),
  MeasurementValue = rnorm(50, mean = 250, sd = 50)
)

步骤3：修改ggplot代码

TM_M_WILD_plot <- ggplot(data = TM_M_WILD, aes(x = Age, y = MeasurementValue)) +
  # 为fill指定简洁键值，后续映射到带格式的标签
  geom_point(aes(fill = "rescued"), size = 4.5) +
  geom_ribbon(aes(ymin = 163, ymax = 386, fill = "wild_manatus"), 
              alpha= 0.6, colour = NA) +
  geom_ribbon(aes(ymin = 331, ymax = 979, fill = "wild_latirostris"), 
              alpha= 0.6, colour = NA) +
  scale_color_manual(values = c('black')) +
  scale_fill_manual(
    name = "Populations", 
    # 映射键值到颜色和带markdown格式的标签（*包裹内容会被斜体渲染）
    values = c(
      "rescued" = "royalblue", 
      "wild_manatus" = "orange", 
      "wild_latirostris" = "royalblue"
    ),
    labels = c(
      "rescued" = "Rescued *T. manatus*",
      "wild_manatus" = "Wild *T. m. manatus*",
      "wild_latirostris" = "Wild *T. m. latirostris*"
    )
  ) +
  scale_x_continuous(expand=c(0, 0), limits=c(0, 40), breaks = seq(0, 40, 5))+
  scale_y_continuous(expand=c(0, 0), limits=c(0, 1000), breaks = seq(0, 1000, 200), guide=guide_axis(minor.ticks = TRUE))+
  labs(
    x = "Age (years)",
    y = "Body Mass (Kg)",
    title = "Body Mass per Age"
  ) + 
  theme_gray(base_size = 55) +
  # 关键设置：让图例文本支持markdown渲染
  theme(legend.text = element_markdown())

TM_M_WILD_plot