重新编码dataframe R中的多个列

library(dplyr)

# 创建一个示例DataFrame
df <- data.frame(
  col1 = c("A", "B", "C", "D"),
  col2 = c("X", "Y", "Z", "X"),
  col3 = c("M", "N", "O", "P")
)

# 使用mutate()和case_when()重新编码多个列
df <- df %>%
  mutate(
    col1 = case_when(
      col1 == "A" ~ "Category 1",
      col1 == "B" ~ "Category 2",
      col1 == "C" ~ "Category 3",
      TRUE ~ "Other"
    ),
    col2 = case_when(
      col2 == "X" ~ "Type 1",
      col2 == "Y" ~ "Type 2",
      col2 == "Z" ~ "Type 3",
      TRUE ~ "Other"
    ),
    col3 = case_when(
      col3 == "M" ~ "Group 1",
      col3 == "N" ~ "Group 2",
      col3 == "O" ~ "Group 3",
      TRUE ~ "Other"
    )
  )

# 打印重新编码后的DataFrame
print(df)