如何在R的ggplot中将分箱替换为中点作为X轴标签

第一步：计算分箱中点 #

根据你的分箱生成方式，选择对应的方法计算中点：

• 情况1：分箱由cut()函数生成（已知断点breaks）
  直接通过断点计算，这是最准确的方式：

  # 假设生成分箱时用的断点为breaks
  breaks <- c(0, 10, 20, 30, 40)
  # 计算每个分箱的中点
  bin_midpoints <- (breaks[-1] + breaks[-length(breaks)]) / 2
  # 将中点添加到数据框
  bin_data$midpoint <- bin_midpoints
  

• 情况2：分箱是字符串格式（如"(0,10]"）
  用正则表达式提取分箱上下限后计算中点：

  library(stringr)
  # 提取分箱中的数字（支持整数/小数），再计算均值即中点
  bin_data$midpoint <- str_extract_all(bin_data$bin, "\\d+\\.?\\d*") %>%
    sapply(function(x) mean(as.numeric(x)))
  

第二步：修改ggplot的X轴标签 #

有两种实现方式，按需选择：

1. 保留原分箱顺序，仅替换标签
   适合分箱为离散分类的场景：

   ggplot(bin_data, aes(x = bin, y = mean_val)) +
     geom_col() # 根据你的图表类型替换，比如geom_point/geom_line等
     scale_x_discrete(labels = bin_data$midpoint) +
     labs(x = "分箱中点", y = "均值")
   

2. 直接映射中点为X轴
   适合需要连续X轴的场景，可调整width匹配分箱宽度：

   ggplot(bin_data, aes(x = midpoint, y = mean_val)) +
     geom_col(width = 8) # 分箱宽度为10时，width可设为8避免重叠
     labs(x = "分箱中点", y = "均值")
   

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