R语言ggplot2箱线图X轴标签添加三角符号及斜体样本名方法问询

1. 符号说明 #

代表基因组DNA全基因缺失的常用三角符号是黑色向下三角，有两种常用实现方式：

• Unicode编码：\u25BC（对应实心黑色向下三角）
• R plotmath表达式：triangle()（默认空心向下三角，搭配bold()可变为实心）

2. 核心函数 #

• scale_x_discrete()：ggplot2中用于自定义离散型X轴的标签
• parse(text=)：解析包含plotmath语法的文本字符串，实现斜体、符号组合
• expression()：直接构建plotmath表达式，支持斜体、符号等格式
• italic()：plotmath语法中用于将文本设置为斜体
• paste0()/paste()：拼接样本名与符号字符串

3. 完整实现代码 #

先构造示例数据，再分两种方式实现：

示例数据准备 #

library(ggplot2)
set.seed(123) # 固定随机种子保证结果可复现
df <- data.frame(
  Sample = c("Sample_A", "Sample_B", "Sample_C"), # 字符型样本名
  Value = rnorm(30, mean = c(4, 7, 5), sd = 1.2) # 数值型数据
)

方法1：使用Unicode三角符号 #

ggplot(df, aes(x = Sample, y = Value)) +
  geom_boxplot(fill = "#69b3a2") +
  # 自定义X轴标签：斜体样本名 + 黑色向下三角
  scale_x_discrete(
    labels = function(x) parse(text = paste0("italic(", x, ")~\"\\u25BC\""))
  ) +
  labs(x = "样本", y = "数值") +
  theme_bw(base_size = 12)

方法2：使用plotmath三角符号 #

ggplot(df, aes(x = Sample, y = Value)) +
  geom_boxplot(fill = "#404080") +
  # 自定义X轴标签：斜体样本名 + 实心向下三角
  scale_x_discrete(
    labels = lapply(df$Sample, function(x) expression(italic(!!x) ~ bold(triangle())))
  ) +
  labs(x = "样本", y = "数值") +
  theme_bw(base_size = 12)

代码说明 #

• parse(text=)会把拼接后的字符串解析为plotmath表达式，~用于分隔文本和符号，保证两者在同一行
• !!x在expression()中用于插入变量（样本名），实现动态生成每个样本的标签
• 两种方法都能实现斜体样本名+三角符号的需求，可根据视觉偏好选择

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