mapply中mean结果

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. a<-list("foo"=c(0:10), "bar"= c(10:20))
   
2. mapply(mean, a$foo, a$bar)

复制代码

结果为什么是0  1  2  3  4  5  6  7  8  9 10

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：apply appl mean App Map

1. mapply(mean, a)

复制代码

1. mapply(sum, a$foo,a$bar)

复制代码

mapply(sum, a$foo,a$bar)

试试rep有可能就方便理解了

1. mapply(rep, a$foo, a$bar)
   
2. [[1]]
   
3. [1] 0 0 0 0 0 0 0 0 0 0
   
4. 
   
5. [[2]]
   
6. [1] 1 1 1 1 1 1 1 1 1 1 1
   
7. 
   
8. [[3]]
   
9. [1] 2 2 2 2 2 2 2 2 2 2 2 2
   
10. 
    
11. [[4]]
    
12. [1] 3 3 3 3 3 3 3 3 3 3 3 3 3
    
13. 
    
14. [[5]]
    
15. [1] 4 4 4 4 4 4 4 4 4 4 4 4 4 4
    
16. 
    
17. [[6]]
    
18. [1] 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5
    
19. 
    
20. [[7]]
    
21. [1] 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6
    
22. 
    
23. [[8]]
    
24. [1] 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
    
25. 
    
26. [[9]]
    
27. [1] 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8
    
28. 
    
29. [[10]]
    
30. [1] 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9
    
31. 
    
32. [[11]]
    
33. [1] 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10

复制代码

试试rep有可能就方便理解了

1. mapply(rep, a$foo, a$bar)
   
2. [[1]]
   
3. [1] 0 0 0 0 0 0 0 0 0 0
   
4. 
   
5. [[2]]
   
6. [1] 1 1 1 1 1 1 1 1 1 1 1
   
7. 
   
8. [[3]]
   
9. [1] 2 2 2 2 2 2 2 2 2 2 2 2
   
10. 
    
11. [[4]]
    
12. [1] 3 3 3 3 3 3 3 3 3 3 3 3 3
    
13. 
    
14. [[5]]
    
15. [1] 4 4 4 4 4 4 4 4 4 4 4 4 4 4
    
16. 
    
17. [[6]]
    
18. [1] 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5
    
19. 
    
20. [[7]]
    
21. [1] 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6
    
22. 
    
23. [[8]]
    
24. [1] 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
    
25. 
    
26. [[9]]
    
27. [1] 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8
    
28. 
    
29. [[10]]
    
30. [1] 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9
    
31. 
    
32. [[11]]
    
33. [1] 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10

复制代码

mean(x, trim = 0, na.rm = FALSE, ...); a$bar在报错中显然解释为 “trim"了

1. mean(a$foo, a$bar)
   
2. Error in mean.default(a$foo, a$bar) :
   
3.   'trim' must be numeric of length one

复制代码