如何根据一列中所有其他数字的平均值重置一些异常值？

Question

我需要用平均值替换大于平均值的 2 倍或小于列中所有其他数字平均值的 1/2 的异常值。

例如，我有一个数据集 DT，包括两列：

• 日期 = {1-1-2019,1-2-2019,1-3-2019,1-4-2019,1-5-2019,1-6-2019}
• 价格 = {2,3,2.5,2.7,28,20}

我需要用价格列中所有其他值的平均值替换异常值（此处为 28 和 20）。 所以基本上我需要做以下事情：

DT$Price[DT$Price>2*mean(2,3,2.5,2.7)|DT$Price<0.5*mean(2,3,2.5,2.7)] <- mean(2,3,2.5,2.7).

谁能给我一个建议如何处理这个问题？ 谢谢！

Answer 1

我想你需要的是

mean_p <- mean(df$Price)
inds <- df$Price > (2 * mean_p) | df$Price < (mean_p * 0.5)
df$Price[inds] <- mean(df$Price[!inds])

但是，请注意，在示例中共享的mean_p为9.7 ，并且 dataframe 中的所有Prices都大于19.4 ( 2* 9.7 ) 或小于4.85 ( 0.5 * 9.7 )。

数据

df <- data.frame(Date = c("1-1-2019","1-2-2019","1-3-2019","1-4-2019",
                          "1-5-2019","1-6-2019"), 
                 Price = c(2,3,2.5,2.7,28,20))