R语言对变量进行异常值筛选， 并用中位数替换极值（outlier）

一般来说，可以使用箱线图（boxplot）或者3σ法则（3 standard deviation rule）等方法来判断变量是否存在异常值。对于存在异常值的变量，可以使用中位数（median）来替换极值。

以下是一个使用R语言对变量进行异常值筛选并用中位数替换极值的示例：

# 生成一个包含异常值的向量
x <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 100)

# 使用箱线图判断是否存在异常值
boxplot(x)

# 使用3σ法则判断是否存在异常值
mean_x <- mean(x)
sd_x <- sd(x)
upper_limit <- mean_x + 3 * sd_x
lower_limit <- mean_x - 3 * sd_x
x_outlier <- x[x > upper_limit | x < lower_limit]

# 使用中位数替换极值
x[x > upper_limit] <- median(x)
x[x < lower_limit] <- median(x)

在上面的示例中，我们首先生成了一个包含异常值的向量x。接着，使用箱线图和3σ法则判断变量x是否存在异常值。最后，使用中位数替换了x中的极值。