如何自动修改R语言cut函数输出的分组标签格式？

不需要依赖额外包，用base R就能轻松实现你要的标签格式，分两种场景处理：

场景1：已知分组断点，直接指定标签 #

如果你的分组断点是固定的，直接在cut()函数里通过labels参数自定义输出格式：

# 构造示例数据
set.seed(123)
df <- data.frame(a = sample(0:50, 100, replace = TRUE))

# 定义分组断点
breaks <- c(0, 1, 5, 10, 15, 40, Inf)

# 直接生成自定义标签的分组结果
df$a_cut <- cut(df$a, breaks = breaks, 
                labels = c("0", "1-4", "5-9", "10-14", "15-39", "40+"))

这种方式简单直接，适合分组规则固定的场景。

场景2：动态生成断点，自动转换标签 #

如果断点是动态生成的（比如用quantile()计算分位数），可以先执行cut()分组，再通过字符串处理自动转换标签：

# 先执行基础分组
df$a_cut <- cut(df$a, breaks = breaks)

# 提取区间的上下限并转换格式
df$a_cut_custom <- sapply(strsplit(gsub("\\[(.*),(.*)\\)", "\\1-\\2", as.character(df$a_cut)), "-"), 
                          function(x) {
                            lower <- as.numeric(x[1])
                            upper <- as.numeric(x[2])
                            if (lower == upper) {
                              as.character(lower)
                            } else if (is.infinite(upper)) {
                              paste0(lower, "+")
                            } else {
                              paste0(lower, "-", upper - 1)
                            }
                          })

代码说明： #

• gsub("\\[(.*),(.*)\\)", "\\1-\\2", ...)：把[0,1)这类格式转换成0-1的字符串
• strsplit(..., "-")：把分割后的字符串拆成上下限数字
• 逻辑判断：
  • 如果上下限相等（比如单值区间），直接输出数字
  • 如果上限是无穷大，输出X+格式
  • 其他区间输出X-Y（因为cut()默认左闭右开，所以上限要减1，比如[10,15)对应10-14）

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