如何根据列之一中的值（日期）删除数据框中的行？

Question

我有一个包含每日数据的数据框。 它具有500,000+行和18列 。 第二列包含日期。

例如，它按时间顺序从2017年7月1日到当前日期。

我每个星期一提取数据并将其输入到R中，但是我只希望数据一直到最近的星期五。

我设置了一个变量，该变量等于最近的星期五的日期（以数据的确切日期格式）：

library(lubridate)

LastFriday <- gsub("X", "", gsub("X0", "", format(
                                   Sys.Date() - wday(Sys.date()+1), "X%m/X%d/%Y))) 

返回9/15/2017

如何删除包含上周五日期的最后一行之后的数据框中的所有行？

Answer 1

以下应该可以工作，尽管我还没有测试过

keep_index <- as.POSIXct(as.Date(df[,2]), "X%m/X%d/%Y") <= as.POSIXct(LastFriday, format = "X%m/X%d/%Y")
mydf <- df[keep_index, ]