试图将汇总变量放入表中

Question

因此，我正在从事一个研究不同停车场空间的项目。因此，从本质上讲，我希望将汇总（均值，分位数，IQR，sd，最大值，最小值，中位数）中的变量放入表中，以便在运行时将其显示为一个表，其中包含每个停车位的所有不同变量。

我尝试了以下代码（我在另一个Stack Overflow问题中看到了它）

newlist <-list(mean, quantile, IQR, sd, max, min, median)
val <- lapply(newlist, function(fn) fn(densities))

但是出现的错误是找不到fn(densities)。

Answer 1

我认为您想要这样的东西：

summary <- function(x) {
  funs <- c(mean, median, sd, mad, IQR)
  lapply(funs, function(f) f(x, na.rm = TRUE))
}

仅适用于数字变量：

sapply(mtcars, function(x) { if(is.numeric(x)) summary(x) })