如何在dplyr中使用变量选取名称为数字的列并修改

在dplyr中用变量替代硬编码列名，有几种实用的实现方式，针对你的需求，具体方法如下：

方法1：.data代词+动态赋值 #

.data代词支持通过字符串直接索引列，结合!!和:=实现动态列名的赋值操作：

df2 <- df %>% mutate(!!f_year := ifelse(.data[[f_year]] == 1, 4, .data[[f_year]]))

方法2：sym()解析字符串为列名 #

用sym()将字符串变量转换为列名符号，再通过!!解析生效：

df2 <- df %>% mutate(!!sym(f_year) := ifelse(!!sym(f_year) == 1, 4, !!sym(f_year)))

注：dplyr会自动依赖加载rlang包，无需额外安装。

方法3：across()函数（推荐，更简洁） #

across()是dplyr处理列操作的通用函数，搭配all_of()指定目标列：

df2 <- df %>% mutate(across(all_of(f_year), ~ifelse(.x == 1, 4, .x)))

这种方式不仅适配单列操作，后续扩展到多列时，只需将f_year换成字符串向量即可。

以上任意方法运行后，得到的df2结果与原硬编码代码完全一致：

#> # A tibble: 2 × 3
#>   `2004` `2005` `2006`
#>    <dbl>  <dbl>  <dbl>
#> 1      4      1      2
#> 2      2      4      7

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