如何在R中对列表内的多个数据框按经纬度范围子集筛选？

核心逻辑是对列表中的每个数据框单独应用经纬度筛选条件，保留符合long ∈ [-90, -70]且lat ∈ [25, 45]的行，以下提供两种可行方案：

方法1：用tidyverse工具链（purrr + dplyr） #

适合习惯tidyverse语法的场景，代码可读性强：

# 先加载所需包
library(purrr)
library(dplyr)

# 批量筛选列表中的每个数据框
filtered_list <- map(你的列表名称, ~ .x %>%
                       filter(long >= -90 & long <= -70,
                              lat >= 25 & lat <= 45))

# 可选操作：移除筛选后为空的数据框（如果不需要保留空框的话）
filtered_list <- keep(filtered_list, ~ nrow(.x) > 0)

方法2：Base R原生方法 #

无需额外安装包，适合轻量需求：

# 用lapply遍历列表并筛选
filtered_list_base <- lapply(你的列表名称, function(df) {
  # 按条件筛选行，保留所有列
  df[df$long >= -90 & df$long <= -70 & 
       df$lat >= 25 & df$lat <= 45, ]
})

# 可选操作：移除空数据框
filtered_list_base <- Filter(function(x) nrow(x) > 0, filtered_list_base)

排查之前map失败的常见原因 #

• 列名拼写错误：确认数据框中的经度/纬度列确实是long和lat（注意大小写）
• 逻辑运算符错误：筛选行要用向量运算符&，而非标量运算符&&
• 未正确引用数据框：在map的匿名函数中要明确用.x指代当前遍历的元素

模拟测试代码（可直接运行验证） #

如果不确定代码是否正确，可以先拿模拟数据测试：

set.seed(123)
# 构造1901-1991年的模拟气温数据列表
temp_list <- lapply(1901:1991, function(year) {
  data.frame(
    year = year,
    long = runif(100, -100, -60),
    lat = runif(100, 20, 50),
    temp = rnorm(100, 20, 5)
  )
})

# 用方法1测试
library(purrr)
library(dplyr)
test_filtered <- map(temp_list, ~ .x %>%
                       filter(long >= -90 & long <= -70,
                              lat >= 25 & lat <= 45))
# 查看第一个年份筛选后的结果
head(test_filtered[[1]])

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