r - 如何使 row_number() 和 quosures 在 R 函数中一起工作？

Question

我有一个参与者内部设计的结果，其中包含每个试验的时间序列信息。我想重新调整一些排列测试的条件。我需要编写一个函数，这就是我遇到问题的地方。

我的数据看起来像这样:

library(tidyverse) 

sampel <- expand.grid(s0 = 1:5, r0 = 1:12)
sampel <- sampel %>% mutate(c0 = rep(c('A', 'B'), 30))

sampel <- sampel %>% 
  group_by(s0, c0, r0) %>% 
  nest() %>% 
  mutate(t0 = map(data, function(t) seq(1:8)), v0 = map(data, function(v) seq(from = 0, by = runif(1), length.out = 8))) %>% 
  unnest(cols = c(data, t0, v0)) %>% 
  ungroup() %>% 
  mutate(s0 = paste('s', s0, sep = ''))

head(sampel, n = 12)

(如果你有任何指示我可以如何以更好的方式展示这个例子，我也会非常感激)

因此，为了添加一些背景信息，它是学科内研究的结果。 s0 代表参与者，c0 代表条件，r0 代表试验编号(运行)。 t0 是一个时间点，v0 是该时间点的感兴趣值。

我正在尝试重新调整参与者内部的条件

resampledSampel <- 
  sampel %>% 
  group_by(s0, r0, c0) %>% 
  nest() %>% 
  group_by(s0) %>% 
  mutate(c1 = c0[sample(row_number())])


resampledSampel %>% 
  head(n = 12)

这可以按预期工作，但是当我尝试创建一个函数时:

resample_within <- function(df, subject, trial, condition) {

  subject <- enquo(subject)
  trial <- enquo(trial) 
  condition <- enquo(condition)

  resampled <- 
    df %>% 
    group_by(!!subject, !!trial, !!condition) %>%
    nest() %>% 
    group_by(!!subject) %>% 
    mutate(condition = !!condition[sample(row_number())]) %>% 
    unnest(data)
  return(resampled)

}

resample_within(sampel, s0, r0, c0) 

抛出错误:

Error: row_number() should only be called in a data context
Run `rlang::last_error()` to see where the error occurred.
In addition: Warning message:
Subsetting quosures with `[` is deprecated as of rlang 0.4.0
Please use `quo_get_expr()` instead.
This warning is displayed once per session. 

知道如何使用 mutate(condition = !!condition[sample(row_number())])在功能？或者我如何在没有 dplyr 的情况下完成这一切(这让我意识到我可能过于依赖 dplyr...)

先感谢您。而且，如果我提出问题的方式不理想，我也提前道歉(我也很乐意就如何更好地制定堆栈交换问题提出任何指示。例如，我似乎无法弄清楚如何显示数据结构)

Answer 1

非常好的第一个问题!

这实际上只是运算符优先级的问题。当您调用 !!condition[sample(row_number())] , 解释为 !!(condition[sample(row_number())])即您试图对 quosure 进行子集化然后应用双爆炸，但您的意思是 (!!condition)[sample(row_number())] ，也就是说，您想要对双键的结果进行子集化。因此，只需应用括号来固定评估顺序，它就可以按预期工作:

resample_within <- function(df, subject, trial, condition) {

  subject <- enquo(subject)
  trial <- enquo(trial) 
  condition <- enquo(condition)

  resampled <- 
    df %>% 
    group_by(!!subject, !!trial, !!condition) %>%
    nest() %>% 
    group_by(!!subject) %>% 
    mutate(condition = (!!condition)[sample(row_number())]) %>% 
    unnest(data)
  return(resampled)

}

现在:

resample_within(sampel, s0, r0, c0) 
#> # A tibble: 480 x 6
#> # Groups:   s0 [5]
#>    s0       r0 c0       t0    v0 condition
#>    <chr> <int> <chr> <int> <dbl> <chr>    
#>  1 s1        1 A         1 0     B        
#>  2 s1        1 A         2 0.981 B        
#>  3 s1        1 A         3 1.96  B        
#>  4 s1        1 A         4 2.94  B        
#>  5 s1        1 A         5 3.93  B        
#>  6 s1        1 A         6 4.91  B        
#>  7 s1        1 A         7 5.89  B        
#>  8 s1        1 A         8 6.87  B        
#>  9 s2        1 B         1 0     A        
#> 10 s2        1 B         2 0.976 A        
#> # ... with 470 more rows