r中利用apply、tapply、lapply、sapply、mapply、table等函数进行分组统计（r中利用申请、tapply、lapply、供应、mapply、表等函数进行分组统计）

《r中利用apply、tapply、lapply、sapply、mapply、table等函数进行分组统计（r中利用申请、tapply、lapply、供应、mapply、表等函数进行分组统计）》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、r中利用apply、tapply、lapply、sapply、mapply、table等函数进行分组统计（R中利用申请、tapply、lapply、供应、mapply、表等函数进行分组统计）R中利用申请、tapply、lapply、供应、mapply、表等函数进行分组统计http://blog.sina.com.cn/s/blog_6caea8bf0100xkpg.html应用函数（对一个数组按行或者按列进行计算）：使用格式为：申请（X，保证金，乐趣，…）其中X为一个数组；缘为一个向量（表示要将函数乐趣应用到X的行还是列），若为1表示取行，为2表示取列，为C（1,

2、2）表示行、列都计算。示例代码：>马<矩阵（C（1:4，1，6:8），nrow=2）>马[1]，[2]，[3]，[4][1，]1317[2，]2468>应用（MA，C（1,2），和）[1]，[2]，[3]，[4][1，]1317[2，]2468>应用（MA，1，和）[1]1220>应用（MA，2，和）[1]37715函数tapply（进行分组统计）：使用格式为：tapply（x，指数，乐趣=null，…，简化=true）其中X通常是一向量；指数是一个列表对象，且该列表中的每一个元素都是与X有同样长度的因子；有趣的是需要计算的函数；简化是逻辑变量，若取值为真（默认值

3、），且函数乐趣的计算结果总是为一个标量值，那么函数tapply返回一个数组；若取值为虚假，则函数tapply的返回值为一个列表对象。需要注意的是，当第二个参数指数不是因子时，函数tapply()同样有效，因为必要时R会用作为factor()把参数强制转换成因子。示例代码：>因子<因子（代表（1:3，长度=17），级别=1:5）>FAC[1]12312312312312312级别：1，2，3，4，5>tapply（1:17，FAC，总和）12345515745钠>tapply（1:17，FAC，数目，简化=false）1美元[1]512美元[1]573美元[1]45

4、4美元无效的5美元无效的>tapply（1:17，FAC，范围）1美元[1]1162美元[1]2173美元[1]3154美元无效的5美元无效的#利用tapply实现类似于Excel里的数据透视表的功能：>大年省销售12007122007B232007C342007D452008562008C672008D782009B892009C9102009D10>附加（DA）>tapply（销售清单（年，省））[1]1471028116912>tapply（销售清单（年，省），平均）甲丙氨丁2007123420085钠672009钠8910函数表（求因子出现的频数）：使用格

5、式为：表（…，排除=如果（useNA==“无”）C（钠、楠）、useNA=C（“没有”，“如果”，“总是”），DNN=列表。名字（…），deparse.level=1）其中参数排除表示哪些因子不计算。示例代码：>d<因子（表示（c（a，b，c）），10），水平=C（“A”，“B”，“C”，“D”，“E”）>D[1]乙、丙、丙、丙、丙、丙、丙、丙、丙、丙、丙、丙、丙、丙、丙、丙、丙、丙、丙级别：b、c、e>表（d）D乙二醇10101000000>table(d,exclude="b")dacde101000000函数lapply与函数sapply:lapply的使用

6、格式为:lapply(x,fun,...)lapply的返回值是和一个和x有相同的长度的list对象,这个list对象中的每个元素是将函数fun应用到x的每一个元素.其中x为list对象(该list的每个元素都是一个向量),其他类型的对象会被r通过函数as.list()自动转换为list类型.函数sapply是函数lapply的一个特殊情形,对一些参数的值进行了一些限定,其使用格式为:sapply(x,fun,simplify=true,use.names=true)sapply(*,simplify=false,use.names=false)和lapply(*

7、)的返回值是相同的.如果参数simplify=true,则函数sapply的返回值不是一个list,而是一个矩阵;若simplify=false,则函数sapply的返回值仍然是一个list.示例代码:>x<-list(a=1:10,beta=exp(-3,3),logic=c(true,false,false,true))>lapply(x,quantile)$a0%,25%,50%,75%,100%7.751.003.255:50a.m.$beta0%,25%,50%,75%,100%0.049787070.251607361.000000005.053668

8、9620.