R - dplyr bootstrap несколько переменных

Question

Я пробовал bootstraping с dplyr, и я застрял с простой строкой кода.

Используя функцию bootstrap, я нашел out, что можно сделать

library(dplyr) 
library(broom) 

mtcars %>% bootstrap(10) %>% 
    do(tidy(sample(.$cyl, 2))) 

, чтобы получить хороший несложных OUTPUT

replicate  x 
     (int) (dbl) 
1   1  6 
2   1  8 
3   2  6 
4   2  8 
... 

Однако, было бы неплохо, чтобы получить больше переменных (столбцы), но я не могу понять, как это сделать.

Я думал, что-то вроде

mtcars %>% bootstrap(10) %>% 
    do(tidy(sample(., 2))) 

или

mtcars %>% bootstrap(10) %>% 
    do(tidy(sample_n(2))) 

будет работать, но это не так.

Любая подсказка, как я могу подмножать несколько переменных?

Представьте себе, я хочу, чтобы получить mpg, cyl и disp, чтобы получить что-то вроде (выхода)

replicate cyl mpg disp 
     (int) (dbl) 
1   1  6 21 ... 
2   1  4 22 ... 
3   2  6 ... 
4   2  8 ... 
... 

(я случайно выбираю два случая sample = 2 и повторяет эту процедуру (bootstrap) 10 раз).

Answer 1

Использование

set.seed(123) 
sapply(mtcars, function(v) sample(v,2)) 

вы можете попробовать 2 значения из каждого столбца mtcars, где, однако столбцы отобранного независимо друг от друга (не уверен, что это то, что вы хотите и/или что она делает смысл). Поэтому решение с использованием broom может быть:

mtcars %>% 
    bootstrap(10) %>% 
    do(tidy(sapply(., function(v) sample(v,2)))) 

Если, с другой стороны, сохраняя отношения между столбцами имеет важное значение, вы можете использовать что-то вроде

do.call("rbind",lapply(1:10, function(dum) mtcars[sample.int(nrow(mtcars), 2), ]))