在tidyverse中动态添加多列

library(tidyverse)

# 示例数据
df <- data.frame(
  x = 1:5,
  y = 6:10
)

# 动态添加两列
df <- df %>%
  mutate(
    z = x + y, # 新列z是x和y的和
    w = x * y  # 新列w是x和y的乘积
  )

print(df)

# 动态添加一列，根据x的值
df <- df %>%
  mutate(
    category = case_when(
      x < 3 ~ "A",
      x >= 3 & x < 5 ~ "B",
      TRUE ~ "C"
    )
  )

print(df)

# 示例：避免列名冲突
df <- df %>%
  mutate(
    new_x = x + 1  # 使用不同的列名
  )

print(df)

# 示例：使用辅助函数简化复杂逻辑
complex_logic <- function(x) {
  if (x < 3) {
    return("A")
  } else if (x >= 3 & x < 5) {
    return("B")
  } else {
    return("C")
  }
}

df <- df %>%
  mutate(
    category = complex_logic(x)
  )

print(df)