在函数中使用dplyr::left_join的by=c(x=y)参数报错问题

我来帮你搞定这个封装函数的问题～你遇到的错误核心原因是在函数里直接写by=(col1 = col2)时，dplyr会把col1当成字面量的列名，而不是你传入的参数值——比如你传了"X2"，但它会去左表找叫col1的列，自然找不到就报错了。另外还要注意：dplyr里没有dplyr::join这个函数，你应该用dplyr::left_join哦。

下面给你两种可行的解决方案：

方案1：用setNames构造命名向量 #

这是最直观的base R方法，通过setNames把右表列名映射到左表列名，生成dplyr需要的命名向量：

test_function <- function(df1, df2, col1, col2){
  # 构造by参数：左表列名为col1的值，右表列名为col2的值
  by_mapping <- setNames(col2, col1)
  output_dataframe <- dplyr::left_join(df1, df2, by = by_mapping)
  return(output_dataframe)
}

方案2：用rlang的动态命名（dplyr风格） #

如果你习惯dplyr的tidyeval语法，也可以用rlang::set_names（和base R的setNames功能一致，更贴合tidyverse生态）：

library(rlang)

test_function <- function(df1, df2, col1, col2){
  by_mapping <- set_names(col2, col1)
  output_dataframe <- dplyr::left_join(df1, df2, by = by_mapping)
  return(output_dataframe)
}

测试验证 #

运行你的测试代码，就能得到正确的左连接结果了：

testdf <- data.frame(X1 = c("A", "B", "C"), X2 = c(1,2,3))
testdf2 <- data.frame(Y1 = c("a", "b", "c"), Y2 = c(1,2,3))
output1 <- test_function(testdf, testdf2, "X2", "Y2")
print(output1)

输出结果：

X1 X2 Y1
1  A  1  a
2  B  2  b
3  C  3  c

这样封装后，你就可以重复调用这个函数，不用每次都写冗长的by=c("左列"="右列")啦～

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