R语言如何筛选dataframe中特定列最大值出现时间及之前的所有行

实现方案 #

方法1：tidyverse 生态简洁实现（和你当前使用的工具栈完全兼容） #

核心逻辑是先定位到val最大值的最晚出现时间，再过滤保留该时间及更早的所有行，代码如下：

library(tidyverse)
library(lubridate)

result <- df1 %>%
  # 兼容val存在空值的场景，无空值可以去掉na.rm = TRUE参数
  filter(date <= max(date[val == max(val, na.rm = TRUE)], na.rm = TRUE))

运行后输出的结果和你给出的预期结果完全一致。

方法2：基础R实现（无第三方包依赖，大数据量下性能更优） #

# 步骤1：取val列最大值
max_val <- max(df1$val, na.rm = TRUE)
# 步骤2：取最大值对应的最晚时间点
max_val_latest_time <- max(df1$date[df1$val == max_val], na.rm = TRUE)
# 步骤3：过滤行
result <- df1[df1$date <= max_val_latest_time, ]

额外性能优化方案（适配你的预排序场景） #

你已经明确数据是按时间排序的，不需要全量做日期比较，直接按位置切片即可，性能提升非常明显：

# 你的数据是按时间降序排列（新数据在前），找第一个最大值出现的位置，从该位置往后的所有行都是需要保留的
first_max_pos <- which.max(df1$val == max(df1$val, na.rm = TRUE))
result <- df1 %>% slice(first_max_pos:n())

如果你的数据后续改为时间升序排列，只需要调整为取最后一次最大值出现的位置，切片保留该位置之前的行即可。

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