这真的取决于你如何定义“离群值”。但是如果你愿意接受离群值是四分位距加或减1. 5倍的任何值，那么你可以使用下面的方法按年龄组去除体重中的离群值。
此外，我假设您希望将每个年龄段作为一个单独的组，因为您没有指出其他情况。
定义一个将异常值替换为NA的函数。

#' Replace outliers
#'
#' Replace outliers with NA. Outliers are defined as values that fall outside plus or minus
#' 1.5 * IQR.
#'
#' @return Numeric vector of same length.
#' @param x Numeric vector to replace.
#' @param ... Other args passed to `quantile()`
#'
#' @export
replace_outliers <- function(x, ...) {
  qnt <- quantile(x, probs = c(.25, .75), ...)
  val <- 1.5 * IQR(x, na.rm = na.rm)
  y <- x
  y[x < (qnt[1] - val)] <- NA
  y[x > (qnt[2] + val)] <- NA
  y
}

按年龄组和过滤器应用remove_outliers()。

library(dplyr)

df2 <- df %>% 
  group_by(age) %>% 
  mutate(body_mass = replace_outliers(body_mass)) %>% 
  ungroup() %>% 
  filter(!is.na(body_mass))