这个问题是由一个名为ensure_nameddeep nested inside eval_selects implementation 的函数引起的。它是vars_select_eval功能的一部分。
ensure_named(pos, vars, uniquely_named, allow_rename)
好消息是我们只需要覆盖这个uniquely_named参数，这个参数是从第一个eval_select_impl被调用的实现函数中进行的，这个函数是由eval_select它自己调用的。所以我们需要做的就是重写tidyselect::eval_select.
为了得到想要的输出，我们需要做两件事：
- 添加
uniquely_named = NULL为参数并FALSE在调用函数时指定它
- 指定现有参数
name_spec = "{outer}"。uniquely_named除非设置为 ，否则仅执行此步骤是不够的FALSE。
在实际代码之前，请注意：
tidyselect::eval_select故意不允许重复的列名。
对于初学者，不可能轻松地创建tibble具有重复列名的：
tibble(a = 1:3, b = 4:6, a = 7:9)
#> Error: Column name `a` must not be duplicated.
#> Use .name_repair to specify repair.
一种解决方法是使用列表tibble::new_tibble：
tibble::new_tibble(list(a = 1:3, b = 4:6, a = 7:9), nrow = 3)
#> # A tibble: 3 x 3
#> a b a
#> <int> <int> <int>
#> 1 1 4 7
#> 2 2 5 8
#> 3 3 6 9
对于 a ，只有在参数设置为data.frame时才能创建非唯一名称：check.namesFALSE
data.frame(a = 1:3, b = 4:6, a = 7:9, check.names = FALSE)
#> a b a
#> 1 1 4 7
#> 2 2 5 8
#> 3 3 6 9
但是当我们将它data.frame与常规的 {dplyr} 动词一起使用时，会抛出一个错误，告诉我们不能转换具有重复名称的数据帧：
data.frame(a = 1:3, b = 4:6, a = 7:9, check.names = FALSE) %>%
mutate(c = 1:3)
#> Error: Can't transform a data frame with duplicate names.
因此，由此我们可以假设不建议data.frame在 {tidyverse} 中使用具有重复名称的 s。这可能与整洁数据的概念相矛盾。
话虽如此，下面是解决此问题的上述方法：
library(tidyverse)
# Data
data <- mtcars[, 8:11]
# custom eval_select function
my_eval_select <- function(expr, data,
env = rlang::caller_env(),
..., include = NULL,
exclude = NULL, strict = TRUE,
name_spec = NULL,
uniquely_named = NULL, # this is the new argument
allow_rename = TRUE) {
ellipsis::check_dots_empty()
tidyselect:::eval_select_impl(data, names(data), rlang::as_quosure(expr, env),
include = include, exclude = exclude, strict = strict,
name_spec = name_spec, allow_rename = allow_rename,
uniquely_named = uniquely_named) # which we also add here
}
# example 1
data %>%
my_eval_select(rlang::expr(c(foo = 1, bar = c(2:4), foobar = c(1, "am", "gear", "carb"))),
data = .,
name_spec = "{outer}", # we need to specify this
uniquely_named = FALSE) # and this
#> foo bar bar bar foobar foobar foobar foobar
#> 1 2 3 4 1 2 3 4
# example: custom function
test <- function(.data, ...) {
loc <- my_eval_select(rlang::expr(c(...)),
data = .data,
name_spec = "{outer}",
uniquely_named = FALSE)
names <- names(.data)
list(names(loc), names[loc])
}
# test
data %>%
test(foo = 1, bar = c(2:4), foobar = c(1, "am", "gear", "carb"))
#> [[1]]
#> [1] "foo" "bar" "bar" "bar" "foobar" "foobar" "foobar" "foobar"
#>
#> [[2]]
#> [1] "vs" "am" "gear" "carb" "vs" "am" "gear" "carb"
由reprex 包于 2021-05-22 创建(v0.3.0)