如何通过函数根据传入参数动态重编码数据列名？

已知efc数据集（来自sjstats包）中变量c161sex仅有唯一值，需根据自定义函数decide_name的返回值，动态重命名变量e42dep。原尝试的rename(decide_name = e42dep)写法无法实现需求，因为rename左侧需为固定名称而非函数调用，需采用动态命名语法解决。

实现步骤与代码 #

1. 先确认自定义函数与数据集加载正常：

library(sjstats) # 加载示例数据集
library(tidyverse)

data(efc)

# 生成新变量名的自定义函数
decide_name <- function(c161sex) {
  name <- case_when(
    c161sex == 1 ~ "Male",
    c161sex == 2 ~ "Female",
    TRUE ~ "missing"
  )
  return(name)
}

2. 动态重命名的核心实现：
   由于c161sex仅有唯一值，先获取该值并生成新名称，再通过dplyr的动态命名语法完成重命名：

# 方式一：分步实现（更清晰）
# 获取c161sex的唯一值
sex_unique <- unique(efc$c161sex)
# 生成目标变量名
new_col_name <- decide_name(sex_unique)
# 动态重命名
efc_renamed <- efc %>%
  rename(!!new_col_name := e42dep)

或者合并为一行代码：

# 方式二：合并成单链式操作
efc_renamed <- efc %>%
  rename(!!decide_name(unique(.$c161sex)) := e42dep)

关键语法说明 #

• !!：解除引用操作符，将字符串类型的变量名转换为dplyr可识别的列名称对象。
• :=：动态赋值操作符，允许在rename的左侧使用动态生成的名称，这是dplyr处理动态命名的标准方式。

验证结果 #

可通过以下代码查看重命名后的列名：

colnames(efc_renamed)

内容的提问来源于stack exchange，提问作者microbe