如何在R中一次性将因子数据框转换为数值型数据框？

一、一次性将所有因子列转为整数编码（对应你逐列调用as.integer的需求） #

如果只是想把每个因子列转成其对应的整数编码（即因子水平的顺序编号），有几种简洁的批量处理方式：

1. 直接替换原数据框的列 #

用lapply遍历所有列并应用as.integer，直接赋值回原数据框即可，无需逐列创建变量：

data <- data.frame(
  x = c('a','b','c'),
  y = c('d','e','f'),
  z = c('g','h','i'),
  stringsAsFactors = TRUE
)

# 批量转换所有因子列为整数
data[] <- lapply(data, as.integer)
print(data)

2. 保留原因子列，新增转换后的整数列 #

如果需要保留原始因子列，同时新增转换后的整数列，可以结合cbind和lapply，再给新列重命名：

data <- data.frame(
  x = c('a','b','c'),
  y = c('d','e','f'),
  z = c('g','h','i'),
  stringsAsFactors = TRUE
)

# 批量生成整数列并合并到原数据框
data_with_int <- cbind(data, lapply(data, as.integer))
# 给新增列添加后缀区分
colnames(data_with_int)[4:6] <- paste0(colnames(data), "_int")
print(data_with_int)

二、一次性生成哑变量（One-Hot编码） #

如果你的需求是生成哑变量（每个因子水平对应一个二进制列），可以用以下批量方法：

1. 基础R的model.matrix方法 #

无需额外包，直接用基础R工具生成：

data <- data.frame(
  x = c('a','b','c'),
  y = c('d','e','f'),
  z = c('g','h','i'),
  stringsAsFactors = TRUE
)

# 生成哑变量，-1表示不生成截距列避免多重共线性
dummy_data <- model.matrix(~ . -1, data = data)
# 转成数据框格式（可选）
dummy_data <- as.data.frame(dummy_data)
print(dummy_data)

2. 使用fastDummies包快速生成 #

这个包的dummy_cols函数可以一键批量处理，还能选择是否保留原列：

# 首次使用需安装包
# install.packages("fastDummies")
library(fastDummies)

data <- data.frame(
  x = c('a','b','c'),
  y = c('d','e','f'),
  z = c('g','h','i'),
  stringsAsFactors = TRUE
)

# 批量生成哑变量，remove_selected_columns=FALSE保留原因子列
dummy_data <- dummy_cols(data, remove_selected_columns = FALSE)
print(dummy_data)

3. 使用caret包的dummyVars #

适合后续需要复用哑变量规则的场景：

# 首次使用需安装包
# install.packages("caret")
library(caret)

data <- data.frame(
  x = c('a','b','c'),
  y = c('d','e','f'),
  z = c('g','h','i'),
  stringsAsFactors = TRUE
)

# 创建哑变量生成器
dummy_gen <- dummyVars(~ ., data = data, fullRank = FALSE)
# 生成哑变量
dummy_data <- predict(dummy_gen, newdata = data)
print(dummy_data)

内容的提问来源于stack exchange，提问作者vini.m.oliveira