dplyr自定义管道函数取值错误及原列无法覆盖问题咨询

• 全列被首值覆盖的原因
  str_split()对列向量执行拆分后会返回列表结构，你对整个列表执行unlist()[1]提取的是全局拆分结果的第一个元素，而非逐行提取每行拆分后的第一个值，该单一值会被广播到列的所有行，最终出现全列被首值覆盖的问题。
• 生成带引号新列的原因
  {{ }}语法仅用于捕获未加引号的列名符号参数，你传入的columns是字符串类型的列名向量，不属于未求值的符号参数，直接写"{{v}}"会被dplyr识别为字符串字面量作为列名，因此生成了带引号的新列而非覆盖原列。

推荐使用dplyr原生的across()语法实现批量列处理，无需手动写循环，代码更简洁易维护：

library(dplyr)
library(stringr)

rem_per_cent <- function(.data, columns) {
  .data %>%
    mutate(
      # all_of()用于兼容字符串格式的列名向量
      across(all_of(columns), 
             # 直接提取数值部分，已内置逗号转点逻辑
             ~ as.numeric(str_extract(str_replace(., ",", "."), "\\d+\\.?\\d*")))
    )
}

# 测试调用
df %>% rem_per_cent(parties)

如果要保留原有的for循环写法，修改后代码如下：

rem_per_cent <- function(.data, columns) {
  nd <- .data      
  for (v in columns){
    nd <- nd %>% mutate(
      # 字符串列名转符号后用!!展开，实现覆盖原列
      !!v := str_split_fixed(.data[[v]], "%", n = 2)[,1] %>% 
               str_replace(",", ".") %>% 
               as.numeric()
    )
  }
  return(nd)
}

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