do和summarise的问题求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1. library(dplyr)
   
2. library(tidyr)
   
3. temp <- data.frame(a = c(1,2) , b = c(2,4), type = c('A','B'))
   
4. 
   
5. fun <- function(a, b)
   
6. {
   
7.   b <- a + b
   
8.   return(data.frame(a,b))
   
9. }
   
10. temp %>% group_by(type) %>%
    
11.   summarise(result = list(fun(a, b))) %>% unnest(result)
    
12. 
    
13. # # A tibble: 2 × 3
    
14. # type     a     b
    
15. # <fctr> <dbl> <dbl>
    
16. #   A     2     3
    
17. #   B     2     6
    
18. temp %>% group_by(type) %>%
    
19.   do(result = fun(.$a,.$b)) %>% unnest(result)
    
20. # # A tibble: 2 × 3
    
21. # type     a     b
    
22. # <fctr> <dbl> <dbl>
    
23. #   A     1     3
    
24. #   B     2     6

复制代码

两者结果不同，其中明显do是对的结果。应该如何理解summarise的作用机理？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Summa arise aris rise Sum