如何在ggplot2中斜体化图例及轴标题中的特定词汇？

嗨，我来帮你搞定这个选择性斜体的需求！你现在需要让轴标题（Carollia Species）里的"Carollia"、图例标题（Piper Species）里的"Piper"单独斜体，而不是整段文本都斜体，对吧？这里有两种实用的方法，结合你的数据给你演示：

方法1：用base R的expression()函数（无需额外包） #

这个方法依赖R原生的表达式语法，不需要安装新包，适合快速实现简单的格式需求。核心思路是用italic()包裹需要斜体的词汇，用~连接普通文本：

library(ggplot2)

# 你的示例数据
pie2 <- data.frame(
  bat = c("C. castanea", "C. perspicillata", "C. sowelli"),
  piper = c("P. scintillans", "P. scintillans", "P. auritum"),
  prop = c(0.51215992, 0.47720417, 0.38)
)

# 绘制饼图（用bar+coord_polar实现）
ggplot(pie2, aes(x = "", y = prop, fill = piper)) +
  geom_bar(stat = "identity", width = 1) +
  coord_polar("y", start = 0) +
  # 设置标题时用expression实现选择性斜体
  labs(
    y = expression(italic("Carollia")~Species),  # "Carollia"斜体，"Species"正常
    fill = expression(italic("Piper")~Species)   # "Piper"斜体，"Species"正常
  ) +
  theme(
    legend.position = "right",
    # 如果你需要y轴文本（比如蝙蝠物种名）全部斜体，保留原来的设置
    axis.text.y = element_text(face = "italic")
  )

方法2：用ggtext包（支持Markdown/HTML格式，更灵活） #

如果之后需要更复杂的文本格式（比如同时斜体+变色、部分粗体），ggtext包会更方便，它允许直接在文本里用Markdown语法（*包裹内容实现斜体）：

# 先安装包（如果没装过）
# install.packages("ggtext")
library(ggtext)

ggplot(pie2, aes(x = "", y = prop, fill = piper)) +
  geom_bar(stat = "identity", width = 1) +
  coord_polar("y", start = 0) +
  # 直接用Markdown语法写标题
  labs(
    y = "*Carollia* Species",
    fill = "*Piper* Species"
  ) +
  theme(
    legend.position = "right",
    # 关键：把需要解析Markdown的文本元素设置为element_markdown()
    axis.title.y = element_markdown(),
    legend.title = element_markdown(),
    # 如果想让y轴的物种名也选择性斜体（比如只斜体属名），可以先处理数据再设置
    axis.text.y = element_markdown()
  )

额外技巧：轴文本的选择性斜体 #

如果连y轴的蝙蝠物种名（比如"C. castanea"）都只想斜体属名（C.），可以先处理数据，用正则表达式把属名部分用*包裹：

# 把bat列里的属名缩写（比如C.）替换为*C.*
pie2$bat <- gsub("(^\\w\\.)", "*\\1*", pie2$bat)

然后配合上面ggtext的axis.text.y = element_markdown()，就能实现属名斜体、种名正常的效果啦。

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