R语言实战-统计分析基础-描述性统计2-sapply

2、sapply函数

这个函数是对lapply函数的一个封装

主要的作用是“Apply a Function over a List or Vector”，即：对列表或者向量应用函数

 1 > data("mtcars")
 2 > vars<-c('mpg','hp','wt')
 3 > mySummary<- function(x,na.omit=FALSE)
 4 + {
 5 +   if(na.omit)x<-x[!is.na(x)]
 6 +   mm<-summary(x);
 7 +   m<-mean(x);
 8 +   n<-length(x);
 9 +   s<-sd(x);
10 +   k<-sum((x-m)^4/s^4)/n-3;
11 +   
12 +   return(c(mm,mean=m,len=n,s=s,kill=k));
13 + }
14 > sapply(mtcars[vars],mySummary)
15               mpg          hp          wt
16 Min.    10.400000  52.0000000  1.51300000
17 1st Qu. 15.425000  96.5000000  2.58125000
18 Median  19.200000 123.0000000  3.32500000
19 Mean    20.090625 146.6875000  3.21725000
20 3rd Qu. 22.800000 180.0000000  3.61000000
21 Max.    33.900000 335.0000000  5.42400000
22 mean    20.090625 146.6875000  3.21725000
23 len     32.000000  32.0000000 32.00000000
24 s        6.026948  68.5628685  0.97845744
25 kill    -0.372766  -0.1355511 -0.02271075

PS：注意sapply函数的调用，第一参数是要描述的数据，第二参数是描述函数

其次，要描述的内容最好是数值型

再次，注意描述函数里面return的写法

return(c())

返回的是一个描述函数的向量