如何在R语言中为数据框列添加区间重分类列？

可以用多种方式实现这个需求，这里提供几种常用的方案：

方案一：Base R 结合 floor 构造区间标签 #

这种方法直接通过数值计算生成区间字符串，逻辑清晰：

# 原始数据
Name <- c("Jon", "Bill", "Maria", "Ben", "Tina")
Age <- c(-23, -41, -32, -58, -100)
df <- data.frame(Name, Age)

# 计算绝对值的区间上下限，再拼接成带负号的标签
df$class <- paste0("-", floor(abs(df$Age)/10)*10, "-", floor(abs(df$Age)/10)*10 + 10)

# 查看结果
df

运行后输出：

Name  Age    class
1    Jon  -23  -20-30
2   Bill  -41  -40-50
3  Maria  -32  -30-40
4    Ben  -58  -50-60
5   Tina -100 -100-110

注：如果需要把-100对应到-90-100，可以调整计算逻辑，把floor(abs(df$Age)/10)改成ifelse(abs(df$Age) == 100, 9, floor(abs(df$Age)/10))。

方案二：使用 cut 函数生成区间 #

cut 是R中专门用于区间划分的函数，配合自定义标签实现需求：

# 定义区间断点（覆盖0到110，包含100）
breaks <- seq(0, 110, by = 10)
# 定义对应的标签，前面加负号
labels <- paste0("-", breaks[-length(breaks)], "-", breaks[-1])

# 对Age的绝对值进行区间划分，再赋值给class列
df$class <- cut(abs(df$Age), breaks = breaks, labels = labels, include.lowest = TRUE)

# 查看结果
df

这样处理后，-100会被分到-90-100区间（因为include.lowest = TRUE让100落在最后一个区间），输出符合预期：

Name  Age    class
1    Jon  -23  -20-30
2   Bill  -41  -40-50
3  Maria  -32  -30-40
4    Ben  -58  -50-60
5   Tina -100 -90-100

方案三：dplyr 管道式实现（适合tidyverse用户） #

如果习惯用tidyverse语法，可以用mutate结合数值计算：

library(dplyr)

df <- df %>%
  mutate(
    abs_age = abs(Age),
    interval_low = floor(abs_age/10)*10,
    class = paste0("-", interval_low, "-", interval_low + 10)
  ) %>%
  select(-abs_age) # 移除中间变量

# 查看结果
df

这种方式代码可读性强，适合数据处理流水线操作。

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