R语言是否有可快速生成条形图分箱、获取分箱编号及区间的函数？

你可以用R内置的cut()函数实现需求，这是处理分箱的专用向量化函数，运算效率远高于嵌套ifelse，哪怕处理百万级行数据也不会有明显耗时。

首先先修正你之前的断点计算逻辑：41个等宽分箱需要生成42个连续断点，你之前seq()的by参数存在笔误，多写了-1会导致分箱宽度不符合预期，用length.out参数指定断点数量可以避免这类计算错误。

完整实现代码 #

1. 构造示例数据 #

set.seed(123) # 固定随机种子方便结果复现
d <- runif(10300, -4.740, 6.142)
d <- as.data.frame(d)

2. 计算分箱断点 #

min_val <- min(d$d)
max_val <- max(d$d)
bin_count <- 41
# 生成42个断点，对应41个等宽分箱
bin_breaks <- seq(min_val, max_val, length.out = bin_count + 1)

3. 生成分箱编号和区间标签 #

cut()的right = FALSE参数对应左闭右开的区间规则，完全匹配你要求的a -< b格式：

# 生成分箱编号（1-41）
d$bin_id <- as.numeric(cut(d$d, 
                           breaks = bin_breaks, 
                           right = FALSE, 
                           include.lowest = TRUE))

# 生成指定格式的分箱区间标签
d$bin_range <- cut(d$d, 
                   breaks = bin_breaks, 
                   right = FALSE, 
                   include.lowest = TRUE,
                   labels = paste(round(head(bin_breaks, -1), 3), 
                                  "-<", 
                                  round(tail(bin_breaks, -1), 3)))

4. ggplot绘制条形图 #

直接用生成的bin_range作为x轴即可：

library(ggplot2)
ggplot(d, aes(x = bin_range)) +
  geom_bar(fill = "steelblue") +
  labs(x = "分箱区间", y = "观测值数量") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) # 倾斜x轴标签避免重叠

可选：tidyverse风格写法 #

如果你习惯用dplyr管道操作，可以合并成分段代码：

library(dplyr)
d <- d %>%
  mutate(
    bin_id = as.numeric(cut(d, breaks = bin_breaks, right = FALSE, include.lowest = TRUE)),
    bin_range = cut(d, breaks = bin_breaks, right = FALSE, include.lowest = TRUE,
                    labels = paste(round(head(bin_breaks, -1), 3), "-<", round(tail(bin_breaks, -1), 3)))
  )

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