在 R 中，如何对齐我自己的函数的输出？

Question

enter image description here

在 R 中，我想创建一个函数，当输入是数字的 c() 时，显示它的均值、var、min、max。但是如何在不使用 summary() 的情况下像图片一样对齐输出？

有这样打印的函数吗？？除了摘要（）

Answer 1

如果我们想要获取所选统计信息的摘要，请使用 lapply 循环 list 并根据 if/else 条件

获取这些输出

lapply(iris, function(x) if(is.numeric(x)) 
   c(mean = mean(x), var = var(x), max = max(x), min = min(x)) else table(x))

-输出

#$Sepal.Length
#     mean       var       max     min      
#5.8433333 0.6856935 7.9000000 4.3000000 

#$Sepal.Width
#     mean       var       max       min    
#3.0573333 0.1899794 4.4000000 2.0000000 

#$Petal.Length
#    mean      var      max     min     
#3.758000 3.116278 6.900000 1.000000 

#$Petal.Width
#     mean       var       max      min     
#1.1993333 0.5810063 2.5000000 0.1000000 

#$Species
#x
#    setosa versicolor  virginica 
#        50         50         50

可以包装成一个函数

summary_fun <- function(dat) {
 lapply(dat, function(x)
     if(is.numeric(x)) {
   c(mean = mean(x), var = var(x), max = max(x), min = min(x))
   } else if(is.character(x)|is.factor(x)) {
       table(x)
    } else NA
    )
  }

然后调用

summary_fun(iris)

在 R 中，如何对齐我自己的函数的输出？

In R, how can I align output of my own function like this?

r

function

summary

alignment

output