r - r - Wrap 函数只显示最后一个函数的结果

Question

我正在尝试编写我的第一个 wrap 函数，显示 r 中向量的均值、方差、标准差和摘要

des_function = function(y)
  {
  mean(y); 
  var(y);
  sd(y);
  summary(y);
  }
des_function(even)

但它只显示汇总函数的结果：

des_function(even)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    2.0   251.5   501.0   501.0   750.5  1000.0

谢谢！

Answer 1

我会建议这个微小的变化：

#Function
des_function = function(y)
{
  list(
  mean(y), 
  var(y),
  sd(y),
  summary(y)
  )
}
#Apply
des_function(even)

Answer 2

我们可以创建一个tibble并返回 tibble

library(tibble)
des_function <- function(y) {
        tibble(Mean = mean(y), Var = var(y), SD = sd(y), Summary = list(summary(y)))
 }