R语言如何对嵌套列表元素用filter函数按指定日期筛选数据

你代码的核心错误是for (i in df_total)遍历出来的i是每个子数据框本身，不是子列表的索引或名称，所以df_total[[i]]属于非法索引调用，直接导致报错。同时i$parameter取到的是整列向量，直接用%in%判断逻辑不严谨，建议取唯一值判断。

df_X <- list()
df_Y <- list()

# 遍历列表索引而非列表元素
for (i in seq_along(df_total)) {
  current_df <- df_total[[i]]
  param <- unique(current_df$parameter)
  if (param == "X") {
    filtered <- filter(current_df, date %in% selected_dates_X)
    # 保留原列表的命名
    df_X[[names(df_total)[i]]] <- filtered
  } else if (param == "Y") {
    filtered <- filter(current_df, date %in% selected_dates_Y)
    df_Y[[names(df_total)[i]]] <- filtered
  }
}

无需手动写循环，用apply族函数代码更简洁、不易出现索引错误：

# 自定义单表筛选规则
filter_by_param <- function(df) {
  param <- unique(df$parameter)
  if (param == "X") {
    return(filter(df, date %in% selected_dates_X))
  } else if (param == "Y") {
    return(filter(df, date %in% selected_dates_Y))
  }
}

# 全量批量筛选所有子列表
filtered_list <- lapply(df_total, filter_by_param)

# 按参数拆分到两个独立列表
df_X <- filtered_list[sapply(filtered_list, function(x) unique(x$parameter) == "X")]
df_Y <- filtered_list[sapply(filtered_list, function(x) unique(x$parameter) == "Y")]

• df_X为所有参数为X的子列表按selected_dates_X筛选后的结果集合，保留原列表的命名
• df_Y为所有参数为Y的子列表按selected_dates_Y筛选后的结果集合，保留原列表的命名

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