〖R〗关于lapply族函数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

apply函数族是R语言中极具特色的一个函数族群，包括apply、tapply、sweep、aggregate


先看apply,apply的中文意思是应用，这个函数的意思是通过将一个函数应用到矩阵或数组中，返回一个向量或数组。


函数形式：apply(x,MARGIN,FUN)


1、lapply应用

---

参考至：[程序问答] 关于lapply族函数。

坛友呵呵哼哼哈哈：

向大家请教下，关于lapply此类函数，输入参数只能是不带参数的嘛，能否输入像gsub等同时指定几个参数的函数吗？求高人指点，谢谢~~



ryoeng 坛友：

1. L <- as.list(sample(LETTERS,replace=T))
   
2. lapply(L, function(x) gsub('A','a',x))
   
3. sapply(L, function(x) gsub('A','a',x))

复制代码

2、函数拓展

---

MARGIN对于不同的数据类型有不同的含义，如矩阵中1表示按行，2表示按列。FUN表示具体的运算方式

1. ma <- matrix(c(1:4, 1, 6:8), nrow = 2)
   
2. ma
   
3. apply(ma, 1, mean)  #--> a list of length 2   按行取均值
   
4. apply(ma, 1, quantile)# 5 x n matrix with rownames   按行取分位数
   
5.      [,1] [,2] [,3] [,4]
   
6. [1,]    1    3    1    7
   
7. [2,]    2    4    6    8
   
8. 
   
9. [1] 3 5
   
10.      [,1] [,2]
    
11. 0%      1  2.0
    
12. 25%     1  3.5
    
13. 50%     2  5.0
    
14. 75%     4  6.5
    
15. 100%    7  8.0
    
16. 再看lapply和sapply
    
17. > x <- list(a = 1:10, beta = exp(-3:3), logic = c(TRUE,FALSE,FALSE,TRUE))
    
18. > x   列表形式
    
19. $a
    
20. [1]  1  2  3  4  5  6  7  8  9 10
    
21. $beta
    
22. [1]  0.04978707  0.13533528  0.36787944  1.00000000  2.71828183  7.38905610
    
23. [7] 20.08553692
    
24. $logic
    
25. [1]  TRUE FALSE FALSE  TRUE
    
26. > lapply(x,mean)
    
27. $a
    
28. [1] 5.5
    
29. $beta
    
30. [1] 4.535125
    
31. $logic
    
32. [1] 0.5
    
33. > lapply(x, quantile, probs = 1:3/4)     对列表中每个数据集进行分位数计算
    
34. $a
    
35. 25%  50%  75%
    
36. 3.25 5.50 7.75
    
37. $beta
    
38.       25%       50%       75%
    
39. 0.2516074 1.0000000 5.0536690
    
40. $logic
    
41. 25% 50% 75%
    
42. 0.0 0.5 1.0
    
43. > sapply(x, quantile)              效果一样
    
44.          a        beta logic
    
45. 0%    1.00  0.04978707   0.0
    
46. 25%   3.25  0.25160736   0.0
    
47. 50%   5.50  1.00000000   0.5
    
48. 75%   7.75  5.05366896   1.0
    
49. 100% 10.00 20.08553692   1.0

复制代码

3、参考

---

参考至john5feng网易博客

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：lapply apply appl App Aggregate 中文意思 特色

感谢分享

谢谢分享。