dplyr `left_join()` 不适用于作为 LHS 变量的字符对象 [重复]

Question

我可以使用dplyr::left_join(..., by = c("name1" = "name2") 连接两个包含两个具有不同名称的变量的数据集。

我想使用角色对象加入，left_join(..., by = c(nameOb1 = nameOb2)。奇怪的是：这适用于by = c("name1", nameOb2)，但不适用于by = c(nameOb1, "name2")。

这是为什么？

在下面复制我的问题。非常感谢。

生成数据

    orig <- tibble(name1 = c("a", "b", "c"),
                   n     = c(10, 20, 30))  

    tojoin <- tibble(name2 = c("a", "b", "c"),
                     pc    = c(.4, .1, .2))    

作品：使用字符串作为by 参数

    left_join(orig, tojoin, by = c("name1" = "name2"))

    # A tibble: 3 x 3
      name1     n    pc
      <chr> <dbl> <dbl>
    1 a        10   0.4
    2 b        20   0.1
    3 c        30   0.2

不起作用：使用 object 作为 first by 参数的字符串

    firstname <- "name1"

    left_join(orig, tojoin, by = c(firstname = "name2"))

    # Error: `by` can't contain join column `firstname` which is missing from LHS
    # Call `rlang::last_error()` to see a backtrace

作品：使用object作为secondby参数的字符串

    secondname <- "name2"

    left_join(orig, tojoin, by = c("name1" = secondname))

    # A tibble: 3 x 3
      name1     n    pc
      <chr> <dbl> <dbl>
    1 a        10   0.4
    2 b        20   0.1
    3 c        30   0.2

包：

dplyr 0.8.0.1

Answer 1

嘿，'left_join' 函数在 by 参数中需要一个命名字符向量。在您的第二次尝试中：

firstname <- "name1"
left_join(orig, tojoin, by = c(firstname = "name2"))

您将字符向量的名称设置为firstname，这对连接不起作用。 为了解决这个问题，您可以首先生成一个命名字符向量并将其传递给连接函数的 by 参数

firstname <- "name1"
join_cols = c("name2")
names(join_cols) <- firstname

dplyr::left_join(orig, tojoin, by = join_cols)