1回答

• 

  李慕青

  2016-10-19 22:37:10

  x <- list(a=1:10,b=c(11,21,31,41,51))
  lapply(x,mean)#返回一个列表

  > lapply(x,mean)
  $a
  [1] 5.5
  $b
  [1] 31

  sapply,如果列表元素长度相同，则返回向量或矩阵，若不同，则跟lapply一样，返回一个列表

  > sapply(x,mean)  
   a    b 
   5.5 31.0

  
  

  0 0