如何将十进制数转换为分类变量？R代码报错求助

错误原因分析 #

你的代码存在两个核心问题：

• 子集索引语法错误：错误地将列索引和条件混合放在[[ ]]中，并用&连接两个无效的子集结果，正确的数据框子集格式应为数据框[行条件, 列位置/名称]。
• 逻辑运算符误用：向量级别的逐元素多条件判断需用&，而&&是标量级别的逻辑判断，不适合处理数据框的行筛选。

修正后的逐行赋值代码 #

# 先初始化第4列（避免NA干扰，可选）
new_data_2[, 4] <- NA_character_

# 按区间赋值
new_data_2[new_data_2$X1998 > 0.8, 4] <- "A"
new_data_2[new_data_2$X1998 > 0.6 & new_data_2$X1998 < 0.8, 4] <- "B"
new_data_2[new_data_2$X1998 > 0.4 & new_data_2$X1998 < 0.6, 4] <- "C"
new_data_2[new_data_2$X1998 > 0.2 & new_data_2$X1998 <= 0.4, 4] <- "D"

更高效的方法：使用cut()函数 #

R内置的cut()函数专门用于数值分箱转分类变量，代码更简洁且不易出错：

# 定义区间断点和对应标签
breaks <- c(-Inf, 0.2, 0.4, 0.6, 0.8, Inf)
labels <- c(NA, "D", "C", "B", "A")  # 0.2及以下无对应标签，设为NA

# 生成分类变量并赋值到第4列
new_data_2[, 4] <- cut(new_data_2$X1998, breaks = breaks, labels = labels, include.lowest = FALSE)

• include.lowest = FALSE确保区间为左开右闭，与你原始逻辑一致（如>0.2且<=0.4对应D）。
• 若需处理0.2及以下的数值，可调整breaks和labels参数。

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