R语言显式语句运行正常，封装为同逻辑函数返回空值如何解决？

• $运算符在R中是静态解析列名的，你写d$n时，R会直接查找数据框d中名为n的列，而非将n替换为你传入的参数。你的示例数据框中没有名为n的列，因此该调用返回NULL，paste0(NULL, sep = ";")的结果就是仅输出;。
• 你用到的{{ }}双大括号是tidyverse生态的整洁求值语法，仅能搭配支持整洁求值的函数使用，无法直接和基础R的$运算符配合，因此该写法在你的函数中没有生效。

补充说明：paste0本身不支持sep参数，你原写法中paste0(df$string, sep = ";")能生效，本质是R将sep = ";"识别为要拼接的第二个字符串向量，和直接写paste0(df$string, ";")效果一致，更规范的写法可以省略sep参数，直接传入分隔符作为第二个参数。

方案1：基础R实现（无额外依赖） #

通过substitute捕获传入的列名，转成字符串后用[[运算符提取列，这是基础R下动态提取列的标准写法：

concat <- function(d, n, s) {
  # 捕获传入的列名并转为字符串，再用[[动态提取列
  col_values <- d[[deparse(substitute(n))]]
  list_value <- paste0(col_values, s)
  return(list_value)
}

调用测试：

test <- concat(df, string, ";")
print(test)
# 输出为："apple;"  "grape;"  "orange;" "tomato;" "pear;"   "plum;"

方案2：tidyverse整洁求值实现 #

如果你习惯使用tidyverse语法，搭配dplyr::pull来配合{{ }}提取列即可：

library(dplyr)

concat <- function(d, n, s) {
  # 用pull支持整洁求值，动态提取列
  col_values <- pull(d, {{n}})
  list_value <- paste0(col_values, s)
  return(list_value)
}

调用方式和上述方案一致，可得到相同结果。

如果需要按id列的唯一值遍历处理，比如针对每个id对应的字符串做拼接，可以直接配合dplyr的分组逻辑使用：

df %>% 
  group_by(id) %>% 
  mutate(str_with_semi = concat(cur_data(), string, ";"))

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