在R中重新编码多个变量

library(dplyr)

# 创建一个数据框
data <- data.frame(
  var1 = c("A", "B", "C", "A"),
  var2 = c("X", "Y", "Z", "X"),
  var3 = c("M", "N", "O", "P")
)

# 定义一个重新编码的函数
recode_function <- function(x) {
  # 编码规则，例如将A编码为1，B编码为2，C编码为3
  encoding <- c("A" = 1, "B" = 2, "C" = 3)
  return(encoding[x])
}

# 使用mutate_at()函数重新编码多个变量
data <- data %>% mutate_at(vars(var1, var2, var3), recode_function)

# 输出结果
print(data)

# 创建一个数据框
data <- data.frame(
  var1 = c("A", "B", "C", "A"),
  var2 = c("X", "Y", "Z", "X"),
  var3 = c("M", "N", "O", "P")
)

# 定义一个重新编码的函数
recode_function <- function(x) {
  # 编码规则，例如将A编码为1，B编码为2，C编码为3
  encoding <- c("A" = 1, "B" = 2, "C" = 3)
  return(encoding[x])
}

# 使用ifelse()函数重新编码多个变量
data$var1 <- ifelse(data$var1 == "A", 1, ifelse(data$var1 == "B", 2, 3))
data$var2 <- ifelse(data$var2 == "X", 1, ifelse(data$var2 == "Y", 2, 3))
data$var3 <- ifelse(data$var3 == "M", 1, ifelse(data$var3 == "N", 2, 3))

# 输出结果
print(data)

library(tidyverse)

# 创建一个数据框
data <- data.frame(
  var1 = c("A", "B", "C", "A"),
  var2 = c("X", "Y", "Z", "X"),
  var3 = c("M", "N", "O", "P")
)

# 定义一个重新编码的函数
recode_function <- function(x) {
  # 编码规则，例如将A编码为1，B编码为2，C编码为3
  encoding <- c("A" = 1, "B" = 2, "C" = 3)
  return(encoding[x])
}

# 使用mutate_all()函数重新编码所有变量
data <- data %>% mutate_all(recode_function)

# 输出结果
print(data)