基于站点名称条件的R语言数据日期过滤问题求助

你之前的代码主要存在两个语法问题：

• Test1 里的case_when写法错误，每个分支必须明确写出判断条件和对应逻辑结果，你第二个分支缺失了条件声明；
• Test2 里的if用法不符合filter的要求，if是流程控制语句，不能直接在filter中生成逻辑向量，同时还缺少必要的括号和逻辑连接符。

另外注意：你的数据示例中日期列是measureDate，但过滤代码里用的是Date，要确保列名一致；且原始日期是字符格式，必须先转成Date类型才能和你定义的start_date等日期对象比较。

第一步：先处理日期列格式转换 #

如果只需要日期部分（忽略时间），可以用lubridate包的工具转换：

library(lubridate)
# 从带时间的字符串中提取日期部分并转为Date类型
json$Date <- dmy(substr(json$measureDate, 1, 10))

第二步：正确的过滤代码 #

方法1：规范使用case_when

每个分支都明确条件，最后用TRUE ~ FALSE过滤掉不符合任何规则的行：

library(dplyr)
json <- json %>%
  filter(case_when(
    !grepl("150", Station) ~ Date >= start_date_AN & Date < end_date_AN,
    grepl("150", Station) ~ Date >= start_date & Date < end_date,
    TRUE ~ FALSE # 其他情况直接过滤
  ))

方法2：直接组合逻辑表达式（更简洁）

用|（或）连接两组独立判断，每组同时校验站点和日期条件：

json <- json %>%
  filter(
    (!grepl("150", Station) & Date >= start_date_AN & Date < end_date_AN) |
    (grepl("150", Station) & Date >= start_date & Date < end_date)
  )

错误原因说明 #

• Test1 的case_when第二个分支没有写条件，case_when要求每个~左边必须是判断逻辑，右边是对应结果，缺失条件会导致语法报错；
• Test2 的if语句结构错误，filter需要的是长度匹配数据行数的逻辑向量，而if只能返回单个值，无法适配。

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