r - 汇总函数的输出

Question

我想使用以下方法获得等长输出:

sapply(df, summary)

在哪里

df = data.frame(x = 1:10 , y = rep(10:11, 5) , z = c(1:4, NA, NA, NA, 3:5))

通过 sapply(dd, summary) 我得到了

$x
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   1.00    3.25    5.50    5.50    7.75   10.00 
$y
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   10.0    10.0    10.5    10.5    11.0    11.0 
$z
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
  1.000   2.500   3.000   3.143   4.000   5.000       3 

我的问题是它为至少有一个 NA 的列提供了 NA 的长度，除此之外什么都没有。我想获得等长输出，如果列没有丢失，最好 NA 的数量为 0。

我想得到这样的东西>

          x     y      z        
 Min.    1.00   10.0   1.000  
 1st Qu. 3.25   10.0   2.500  
 Median  5.50   10.5   3.000  
 Mean    5.50   10.5   3.143  
 3rd Qu. 7.75   11.0   4.000  
 Max.    10.00  11.0   5.000  
 NA's    0      0      3    

Answer 1

这也行。

> s <- sapply(df, summary)
> sapply(s, function(x){
      if(!length(x)==7) x[7] <- 0; names(x)[7] <- "NA's"; x 
  })
#             x    y     z
# Min.     1.00 10.0 1.000
# 1st Qu.  3.25 10.0 2.500
# Median   5.50 10.5 3.000
# Mean     5.50 10.5 3.143
# 3rd Qu.  7.75 11.0 4.000
# Max.    10.00 11.0 5.000
# NA's     0.00  0.0 3.000