如何在R语言中修剪极值？剔除<0与>8的极端数值

下面是几种实用的实现方式，适配不同场景：

1. 基础R原生操作（无需额外包） #

如果是单个数值向量：

Atrim <- c(0, 8)
# 筛选出0到8之间的元素
filtered_vec <- your_vector[your_vector >= Atrim[1] & your_vector <= Atrim[2]]

如果是数据框，针对某一列筛选行：

# 假设要筛选的列是value_col
filtered_df <- your_dataframe[your_dataframe$value_col >= Atrim[1] & your_dataframe$value_col <= Atrim[2], ]

2. 使用dplyr包（代码更简洁，适合复杂数据框操作） #

先加载dplyr（未安装的话先运行install.packages("dplyr")）：

library(dplyr)
Atrim <- c(0, 8)

# 筛选单列符合条件的行
filtered_df <- your_dataframe %>%
  filter(value_col >= Atrim[1], value_col <= Atrim[2])

# 批量筛选多列（比如同时处理col1和col2）
filtered_multi_df <- your_dataframe %>%
  filter(across(c(col1, col2), ~ .x >= Atrim[1] & .x <= Atrim[2]))

3. 自动过滤所有数值列 #

如果需要把数据框中所有数值列里超出0-8的行都剔除：

# dplyr版，代码更直观
filtered_all_num <- your_dataframe %>%
  filter(across(where(is.numeric), ~ .x >= Atrim[1] & .x <= Atrim[2]))

# 基础R版，适合不想加载额外包的场景
num_cols <- sapply(your_dataframe, is.numeric)
filtered_all_num <- your_dataframe[rowSums(sapply(your_dataframe[, num_cols], function(x) x < Atrim[1] | x > Atrim[2])) == 0, ]

对于大型数据集，优先用dplyr的方法或者基础R的索引操作，避免循环遍历每行，那样会大幅降低效率。

内容的提问来源于stack exchange，提问作者Lola