使用Tukey的栅栏功能将行标记为异常值

Question

我有一个数据框，其中G列表示组和连续变量C.我如何将每一行标记为异常值，例如，使用函数here定义的Tukey栅栏函数：

isnt_out_tukey <- function(x, k = 1.5, na.rm = TRUE) {
  quar <- quantile(x, probs = c(0.25, 0.75), na.rm = na.rm)
  iqr <- diff(quar)

  (quar[1] - k * iqr <= x) & (x <= quar[2] + k * iqr)
}

最终，我希望最终得到一个O列，其中包含异常值的“是”和每个组中没有异常值的“否”。