我很难弄清楚如何使用dplyr:：left_join和NSE连接两个表。问题是我无法为"by"提供正确的值。我想我现在已经找到了一个解决方案，但感觉我正在以一种特别复杂的方式来做。所以，如果你知道一个更简单/更优雅的解决方案，请告诉我：(
这就是我正在做的：
# some data
df <- dplyr::tibble(x=1:10,
y=LETTERS[1:10],
z=LETTERS[11:20])
# some function
test_fun <- function(df,id){
id <- rlang::enquo(id)
join_var <- names(rlang::quos_auto_name(id))[2] # is there an easier way?
# not important: doing some stuff
df1 <- df %>%
dplyr::select(!!id,y)
df2 <- df %>%
dplyr::select(!!id,z)
# join using prepared join_var
df1 %>%
dplyr::left_join(df2,setNames(join_var,join_var))
}
test_fun(df,id=x)
当我被要求提供更多的上下文和解释以更好地理解我的问题时，我将尝试在这里提供更多信息：
NSE是非标准评估的缩写。我的目标是构建一个函数，该函数基于用户可以定义的变量连接到数据集。主要问题是dplyr:：left_join中的by参数不接受引用的变量(NSE参数(，所以我不得不找到一个变通方法。我发现(join_var<-names(rlang:：quos_auto_name(id(([2](的方法看起来有点复杂，我正在寻找一个更简单的解决方案。顺便说一句，这是莱昂内尔·亨利提供的。。。谢谢：(
您正在寻找join_var <- rlang::as_name(id)。