如何在R语言中将因子列重编码为指定数量的水平

别发愁，这事儿其实有好几种简单又靠谱的解决办法，我给你分享几个常用的：

方法1：用基础R的cut()函数（最直接） #

cut()专门用来把数值分成不同的区间，刚好适配你这种按范围分组的需求：

# 给PE列分组并生成TYPE因子列
data$TYPE <- cut(
  data$PE,
  breaks = c(0, 2, 4, 6),  # 设置分组分界点：0-2、2-4、4-6
  labels = c("1", "2", "3"),  # 每个区间对应的因子水平
  include.lowest = TRUE  # 确保最小值1被包含在第一个区间里
)

# 验证结果
head(data)
levels(data$TYPE)

运行后你会发现TYPE列完全符合你的要求，因子水平就是"1"、"2"、"3"。

方法2：用dplyr的case_when()（适合tidyverse用户） #

如果你平时习惯用tidyverse工具包，用case_when()做条件匹配会更直观：

library(dplyr)

data <- data %>%
  mutate(TYPE = case_when(
    PE %in% c(1, 2) ~ "1",  # PE是1或2时，TYPE为"1"
    PE %in% c(3, 4) ~ "2",  # PE是3或4时，TYPE为"2"
    PE %in% c(5, 6) ~ "3"   # PE是5或6时，TYPE为"3"
  ) %>% factor())  # 最后把结果转成因子类型

这个方法的好处是条件写得非常清晰，后续要调整分组规则也很方便。

方法3：手动创建映射表（灵活性最高） #

如果你的分组规则比较特殊，还可以先做一个映射向量，再通过匹配生成TYPE：

# 创建PE到TYPE的映射规则
pe_to_type <- c("1" = "1", "2" = "1", "3" = "2", "4" = "2", "5" = "3", "6" = "3")

# 匹配映射并转成因子
data$TYPE <- factor(pe_to_type[as.character(data$PE)])

这种方法适合分组规则不是连续区间的场景，比如PE的取值是零散的数字时也能用。

不管用哪种方法，最后你都能得到想要的结果：TYPE列只有3个因子水平，且对应关系完全符合你的要求～

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