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

Question

我正在尝试编写我的第一个包装函数，显示 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 和 return 小标题

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