我使用异常值参数过滤的列的平均值

安全的阿加瓦尔

我正在研究一个函数，该函数基本上根据列中的两个异常值过滤掉行。我正在传递列名、较低的离群值和较高的离群值。即使我让表格过滤以一种有点丑陋的方式工作（建议在一行中完成），我在之后返回该特定列的平均值时遇到了麻烦。我尝试使用get(), 因为列名是一个字符串，但是却得到了一个错误。我也看了看，colMeans()但无法使其工作。

findMean <- function(colname, outlier_lower, outlier_upper) {
  initial.data <- survey %>%
    filter_(paste0(colname, "<", outlier_upper))
  filtered.data <- initial.data %>%
    filter_(paste0(colname, ">=", outlier_lower))
  mena <- mean(get(filtered.data$colname))
  return(mean)
}

安全的阿加瓦尔

没关系，我让它工作了。

findMean <- function(colname, outlier_lower, outlier_upper) {
  initial.data <- survey %>%
    filter_(paste0(colname, "<", outlier_upper))
  filtered.data <- initial.data %>%
    filter_(paste0(colname, ">=", outlier_lower)) %>%
    summarise(mean = mean(get(colname)))

  return(filtered.data$mean)
}

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。