R语言ggplot2如何自定义X/Y轴刻度文本标签

ggplot2原生就支持自定义X、Y轴刻度文本，无需安装第三方扩展包，核心通过对应标度函数的breaks和labels参数即可实现，针对你提供的堆叠条形图场景，操作方式如下：

• 首先加载依赖、导入数据集，先保证X轴分类按你预设的plotOrder字段排序，避免ggplot2自动按字母顺序打乱排列：

library(ggplot2)
# 导入你提供的数据集
df <- structure(list(ValueName = c("Value 11", "Value 14", "Value 13",  "Value 12", "Value 10", "Value 1", "Value 5", "Value 9", "Value 4",  "Value 7", "Value 8", "Value 3", "Value 15", "Value 2", "Value 6",  "Value 11", "Value 14", "Value 13", "Value 12", "Value 10", "Value 1",  "Value 5", "Value 9", "Value 4", "Value 7", "Value 8", "Value 3",  "Value 15", "Value 2", "Value 6", "Value 11", "Value 14", "Value 13",  "Value 12", "Value 10", "Value 1", "Value 5", "Value 9", "Value 4",  "Value 7", "Value 8", "Value 3", "Value 15", "Value 2", "Value 6" ), plotOrder = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L,  12L, 13L, 14L, 15L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L,  11L, 12L, 13L, 14L, 15L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L,  10L, 11L, 12L, 13L, 14L, 15L), Response = c("A1", "A1", "A1",  "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1",  "A1", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2",  "A2", "A2", "A2", "A2", "A2", "A3", "A3", "A3", "A3", "A3", "A3",  "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3"), Percent = c(86.5,  85.3, 84.5, 83.2, 81, 79.5, 77, 76.7, 71, 66.2, 64.5, 60.5, 59.6,  57.2, 53.2, 9.9, 9.4, 10.2, 9.9, 11.8, 14.7, 13.9, 13.5, 15.1,  16.1, 21.3, 21.3, 26.6, 19.8, 18.5, 3.6, 5.3, 5.3, 6.9, 7.2,  5.8, 9, 9.8, 13.9, 17.7, 14.1, 18.2, 13.8, 22.9, 28.2)), .Names = c("ValueName",  "plotOrder", "Response", "Percent"), row.names = c(NA, -45L), class = c("tbl_df",  "tbl", "data.frame"))

# 按plotOrder重排X轴因子顺序
df$ValueName <- reorder(df$ValueName, df$plotOrder)

# 绘制基础堆叠条形图
p <- ggplot(df, aes(x = ValueName, y = Percent, fill = Response)) +
  geom_col(position = position_stack(reverse = TRUE))

自定义刻度的核心逻辑 #

不管是离散分类的X轴，还是连续数值的Y轴，修改刻度文本只需要在对应标度函数中传入两个顺序一一对应的向量：

• breaks：指定需要显示刻度的原始值，离散轴传入原始类别名称，连续轴传入刻度对应的原始数值位置
• labels：和breaks顺序完全匹配的自定义显示文本，支持普通字符串、换行符、特殊符号、plotmath数学表达式

代码示例 #

以将Y轴改为百分比格式文本、X轴替换为自定义分类标签为例，直接在基础图上叠加标度设置即可：

p +
  # 自定义Y轴（连续数值轴）
  scale_y_continuous(
    breaks = c(0, 25, 50, 75, 100), # 原始刻度位置
    labels = c("0%", "25%", "50%", "75%", "100%"), # 自定义显示文本
    limits = c(0, 100)
  ) +
  # 自定义X轴（离散分类轴）
  scale_x_discrete(
    breaks = levels(df$ValueName), # 按排序后的顺序取所有原始分类
    labels = c("自定义标签1", "自定义标签2", "自定义标签3", "自定义标签4", "自定义标签5",
               "自定义标签6", "自定义标签7", "自定义标签8", "自定义标签9", "自定义标签10",
               "自定义标签11", "自定义标签12", "自定义标签13", "自定义标签14", "自定义标签15") # 按顺序替换成你需要的文本即可
  )

如果标签映射规则固定，可以提前构建命名向量存储映射关系，不需要手动匹配顺序：

# 构建原始值到自定义文本的映射命名向量
x_label_mapping <- c(
  "Value 11" = "标签1",
  "Value 14" = "标签2",
  "Value 13" = "标签3"
  # 剩余项按「原始类别名 = 自定义文本」的格式补全即可
)
# 调用时直接传入labels参数即可，ggplot2会自动匹配对应分类
# scale_x_discrete(labels = x_label_mapping)

小提示：如果需要在刻度文本中加换行，直接在字符串中用\n即可；需要输入公式、上下标等特殊格式，直接传入plotmath表达式对象作为labels即可。

内容的提问来源于stack exchange，提问作者Abdullah Al Mamun