R - dplyr 风格化打印或粘贴

Question

我想知道是否可以“风格化”dplyr 结果。

假设我运行引导平均程序 10 次，每次选择 2 个案例

library(dplyr) 

for(i in 1:10){
   m = mean( mtcars[sample(1:nrow(mtcars), size = 2), 'cyl']  )
   print(paste('Mean Boot', i, ':', m)) 
}

[1] "Mean Boot 1 : 8"
[1] "Mean Boot 2 : 7"
[1] "Mean Boot 3 : 8"
[1] "Mean Boot 4 : 4"
...

我想知道如何从 dplyr 代码打印这样的结果。

类似

for(i in 1:10){
   mtcars %>% sample_n(2) %>% 
   summarise(m = mean(cyl)) %>% 
   print(paste('Mean Boot', i, ':', m)) 
} 

有什么线索吗？

Answer 1

我们能做到

for(i in 1:10){ 
   mtcars %>%
   sample_n(2) %>% 
   summarise(m= paste('Mean Boot', i, ':', mean(cyl)))  %>%
   .$m %>%
   print 
 } 
#[1] "Mean Boot 1 : 6"
#[1] "Mean Boot 2 : 5"
#[1] "Mean Boot 3 : 7"
#[1] "Mean Boot 4 : 6"
#[1] "Mean Boot 5 : 8"
#[1] "Mean Boot 6 : 6"
#[1] "Mean Boot 7 : 4"
#[1] "Mean Boot 8 : 7"
#[1] "Mean Boot 9 : 8"
#[1] "Mean Boot 10 : 6"