R 如何将sd字段添加到数字向量的摘要中？

该方法计算最小分位数、最大分位数、平均分位数、中位数、第一分位数和第三分位数。 如何添加到表中

另外，我可以定义

摘要。数字
：

summary.numeric <- function (v) {
  s <- summary.default(v)
  s <- signif(c(s,sd(v)),3)
  names(s)[length(s)] <- "sd"
  s
}

这真的是最好的方法吗？
我建议从
摘要中提取并重写相关的源代码。默认值
而不是试图围绕它编写包装：

# Borrows some code from summary.default
summary.numeric <- function (object,digits = max(3L, getOption("digits")-3L)) {

  nas <- is.na(object)
  object <- object[!nas]
  qq <- stats::quantile(object)
  qq <- signif(c(qq[1L:3L], mean(object), qq[4L:5L], sd(object)), digits)
  names(qq) <- c("Min.", "1st Qu.", "Median", "Mean", "3rd Qu.", "Max.", "sd")

  if (any(nas)) 
    c(qq, `NA's` = sum(nas))
  else qq
}

# Borrows some code from summary.default
summary.numeric <- function (object,digits = max(3L, getOption("digits")-3L)) {

  nas <- is.na(object)
  object <- object[!nas]
  qq <- stats::quantile(object)
  qq <- signif(c(qq[1L:3L], mean(object), qq[4L:5L], sd(object)), digits)
  names(qq) <- c("Min.", "1st Qu.", "Median", "Mean", "3rd Qu.", "Max.", "sd")

  if (any(nas)) 
    c(qq, `NA's` = sum(nas))
  else qq
}

set.seed(1)
summary(c(NA,runif(10)))
#    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.      sd    NA's 
# 0.06179 0.29220 0.60100 0.55150 0.83900 0.94470 0.31570 1.00000