R语言连续变量转分类变量：列名异常与导出空行问题修复咨询

核心问题分析 #

原代码的两个问题根源一致：将每列赋值为嵌套的数据框（cont[[i]] <- data.frame(p)），导致列名被覆盖为p，且xlsx导出工具无法解析嵌套结构，最终内容为空。

基础R修复代码 #

# 遍历所有连续变量列
for (i in names(cont)) {
  # 一次性生成0、25%、50%、75%分位数的分割点
  q_cuts <- quantile(cont[[i]], probs = c(0, 0.25, 0.5, 0.75), names = FALSE)
  # 按分位数分组，rightmost.closed确保最大值被纳入最后一组
  group_num <- findInterval(cont[[i]], q_cuts, rightmost.closed = TRUE)
  # 直接赋值为向量（而非数据框），保留原列名
  cont[[i]] <- group_num
  
  # 可选：转为带标签的因子，让分类变量更直观
  cont[[i]] <- factor(group_num, levels = 1:4, labels = c("Q1", "Q2", "Q3", "Q4"))
}

# 导出为xlsx（以openxlsx包为例，需先安装）
# install.packages("openxlsx")
library(openxlsx)
write.xlsx(cont, "分位数分组结果.xlsx")

简化版（dplyr实现） #

如果习惯使用tidyverse语法，可避免循环，代码更简洁：

library(dplyr)

cont <- cont %>%
  mutate(across(everything(), function(col) {
    q_cuts <- quantile(col, probs = c(0, 0.25, 0.5, 0.75), names = FALSE)
    group_num <- findInterval(col, q_cuts, rightmost.closed = TRUE)
    factor(group_num, levels = 1:4, labels = c("Q1", "Q2", "Q3", "Q4"))
  }))

# 导出xlsx
library(openxlsx)
write.xlsx(cont, "分位数分组结果.xlsx")

关键修复点 #

1. 替换嵌套数据框为向量：直接赋值group_num（向量）而非data.frame(p)，解决列名被覆盖和导出为空的问题。
2. 统一生成分位数：一次性调用quantile生成所有分割点，简化代码。
3. 处理边界值：添加rightmost.closed = TRUE，确保最大值被正确分到最后一组。
4. 可选：转为带标签的因子：让分组结果更易读，符合分类变量的使用场景。

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