如何在ggplot中设置动态Y轴标签（自动适配千/百万量级）

问题根源 #

你之前的代码报错，是因为if_else是向量化函数，会返回一个布尔向量，但ggplot的+操作需要单个scale_y_continuous对象，向量无法与ggplot对象拼接，所以抛出错误。另外原代码里没添加几何图层（比如geom_point()），这也会导致图形无法生成。

方案1：根据数据最大值判断切换（全局统一单位） #

先计算数据的最大值，用基础R的if（标量判断）选择对应的刻度格式，确保整个Y轴用统一的单位：

df <- ChickWeight
lumpy <- ChickWeight$weight * 10000
max_lumpy <- max(lumpy)  # 计算数据最大值，判断量级

df %>% 
  ggplot(aes(x = Time, y = lumpy)) +
  geom_point() +  # 必须添加几何图层
  if (max_lumpy >= 1000000) {
    scale_y_continuous(
      name = NULL, 
      labels = ~scales::comma(., scale = 1/1000000, suffix = "M", accuracy = 1)
    )
  } else {
    scale_y_continuous(
      name = NULL, 
      labels = ~scales::comma(., scale = 1/1000, suffix = "K", accuracy = 1)
    )
  }

方案2：自定义标签函数（自动适配每个刻度值） #

如果需要更灵活的处理（比如数据中同时存在K和M量级的数值），可以写一个自定义标签函数，让每个刻度值自动判断用K还是M：

df <- ChickWeight
lumpy <- ChickWeight$weight * 10000

# 自定义标签函数
custom_y_labels <- function(x) {
  dplyr::if_else(
    x >= 1e6,
    scales::comma(x / 1e6, suffix = "M", accuracy = 1),
    scales::comma(x / 1e3, suffix = "K", accuracy = 1)
  )
}

df %>% 
  ggplot(aes(x = Time, y = lumpy)) +
  geom_point() +
  scale_y_continuous(name = NULL, labels = custom_y_labels)

注意点 #

• 原代码中千位的scale = 1/100000是错误的，千单位应该是除以1000（即scale = 1/1000），百万是除以1000000（scale = 1/1e6）。
• 基础R的if用于标量判断，适合全局统一单位的场景；dplyr::if_else用于向量化判断，适合每个刻度值单独适配的场景。

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