去除R中重复数据帧中的异常值

library(dplyr)
library(tidyverse)

df <- read.csv("data.csv")  # 替换为你的数据集文件名或路径

df <- distinct(df)

# 基于标准差的方法
df <- df %>% filter(abs(scale(variable)) < 3)  # 替换"variable"为你的变量名

# 基于箱线图的方法
df <- df %>% filter(variable > quantile(variable, 0.25) - 1.5 * IQR(variable) & 
                    variable < quantile(variable, 0.75) + 1.5 * IQR(variable))

# 基于Z分数的方法
df <- df %>% filter(abs((variable - mean(variable)) / sd(variable)) < 3)

write.csv(df, "clean_data.csv", row.names = FALSE)  # 替换为你想要保存的文件名或路径