如何在mutate和case_when函数中将映射函数应用于动态列名？

library(dplyr)
library(rlang)

# 创建一个示例数据框
df <- data.frame(
  col1 = c(1, 2, 3),
  col2 = c(4, 5, 6),
  col3 = c(7, 8, 9)
)

# 定义一个映射函数
map_function <- function(x) {
  x * 2
}

# 定义一个动态列名
column_name <- "col2"

# 使用quo函数将动态列名转换为引用对象
column_expr <- enquo(!!sym(column_name))

# 在mutate函数中应用映射函数到动态列名
df <- df %>%
  mutate(!!column_expr := map_function(!!column_expr))

# 在case_when函数中应用映射函数到动态列名
df <- df %>%
  mutate(new_column = case_when(
    !!column_expr > 10 ~ "大于10",
    !!column_expr <= 10 ~ "小于等于10"
  ))

# 打印结果
print(df)