2

我正在努力学习如何使用 hadleyverse 进行编程。我已经阅读了 NSE 和lazyeval 小插曲，但我仍然迷路了......

我正在尝试将 tidyr::complete 帮助页面上给出的示例翻译为 SE 案例。

df <- data_frame(
  group = c(1:2, 1),
  item_id = c(1:2, 2),
  item_name = c("a", "b", "b"),
  value1 = 1:3,
  value2 = 4:6
)
df %>% complete(group, nesting(item_id, item_name))

我的最终目标是能够用我指定的变量做同样的事情： 

v1 <- 'group'
v2 <- 'item_id, item_name'

但在我尝试之前，我需要能够直接使用列名来解决它。首先，即使我知道这不是我想要的，这至少不会引发错误： 

df %>% complete_(list(~group, ~item_id, ~item_name))

我想不通的是如何包含
我尝试过的“嵌套_”事情：

df %>% complete_(~group, nesting_(~item_id, ~item_name)) 
# Error in nesting_(~item_id, ~item_name) : unused argument (~item_name)

df %>% complete_(~group, nesting_(list(~item_id, ~item_name)))
# Error: Each variable must be named. 
# Problem variables: 1, 2 

df %>% complete_(~group, nesting_(alist(~item_id, ~item_name)))
# Error: Each variable must be named. 
# Problem variables: 1, 2 

df %>% complete_(~group, nesting_(list('item_id' = item_id, 'item_name' = item_name)))
# Error in stopifnot(is.list(x)) : object 'item_id' not found

df %>% complete_(~group, nesting_(list('item_id' = df$item_id, 'item_name' = df$item_name)))
# No syntax error, but doesn't expand...

df %>% complete_(~group, nesting_(named_dots(item_id, item_name)))
# Error: Each variable must be a 1d atomic vector or list.
# Problem variables: 'item_id', 'item_name'

df %>% complete_(~group, nesting_(list('item_id' = item_id, 'item_name' = item_name)))
# Error in stopifnot(is.list(x)) : object 'item_id' not found

df %>% complete_(~group, nesting_(list(as.name(item_id), as.name(item_name))))
# Error in as.name(item_id) : object 'item_id' not found

df %>% complete_(~group, nesting_(as.name(item_id), as.name(item_name)))
# Error in nesting_(as.name(item_id), as.name(item_name)) : 
#   unused argument (as.name(item_name))

谢谢你的帮助！！

4

3 回答 3

2

感谢@aosmith 的建议，我破解了这个解决方法。
这可能不是最好/正确的方法，但它似乎有效。

从他最后一个有效的陈述开始： 

v1 <- 'group'
v2 <- c("item_id", "item_name")
df %>% complete_(list(as.name(v1), ~nesting_(setNames(list(item_id, item_name), v2))))

我玩了 setNames 调用，看看它做了什么： 

setNames(list(df$item_id, df$item_name), v2)
$item_id
[1] 1 2 2

$item_name
[1] "a" "b" "b"

并意识到它只是对 v2 中命名的 df 列进行子集化。所以我尝试通过 select_ 做同样的事情： 

df %>% complete_(list(as.name(v1), ~nesting_(select_(., .dots = v2))))
# A tibble: 4 × 5
  group item_id item_name value1 value2
  <dbl>   <dbl>     <chr>  <int>  <int>
1     1       1         a      1      4
2     1       2         b      3      6
3     2       1         a     NA     NA
4     2       2         b      2      5
于 2016-11-07T17:10:29.210 回答
1

我得到complete_并nesting_像这样一起工作：

df %>% complete_(list(~group, ~nesting_(list(item_id = item_id, item_name = item_name))))

查看 的代码nesting_，看起来命名列表来自tibble::as_data_frame.

但是，当您实际开始使用命名变量时，上面的代码并没有多大帮助。事情仍然可以正常工作complete_：

df %>% complete_(list(as.name(v1), ~nesting_(list(item_id = item_id, item_name = item_name))))

nesting_您可以为viasetNames和名称的向量制作命名列表：

v2 <- c("item_id", "item_name")
df %>% complete_(list(as.name(v1), ~nesting_(setNames(list(item_id, item_name), v2))))

但我没有找到使用nesting_. 我的失败涉及到诸如

df %>% complete_(list(as.name(v1), ~nesting_(setNames(lapply(v2, as.name), v2))))

错误：每个变量必须是一维原子向量或列表。问题变量：“item_id”、“item_name”

除此之外，我没有尝试太多，但它可能会给你一个起点。

于 2016-11-01T15:34:50.557 回答
0

另一种可能是：

v1 <- 'group'
v2 <- c('item_id', 'item_name')
df %>% complete_(c(v1, ~do.call(nesting, lapply(v2, as.name))))

  group item_id item_name value1 value2
  <dbl>   <dbl>     <chr>  <int>  <int>
1     1       1         a      1      4
2     1       2         b      3      6
3     2       1         a     NA     NA
4     2       2         b      2      5

这不使用 "SE" nesting_()，而是利用了要完成的参数可以被懒惰地评估的事实。我不相信这比上面 ap53 的答案更可取，但它确实删除了select().

于 2018-04-19T01:04:08.633 回答