r - 是否有任何命令可以保留具有特定格式时间字符串的子集行？

Question

有这样的数据框:

data.frame(id = c(1,2,3), date1 = c("2014-Dec 2018","2009-2010","Jan 2009-Aug 2010"), date2 = c("Feb 2016-Dec 2018","2014-Dec 2018","Oct 2013-Dec 2018"))

如何保留包含在任何列中的行没有月份，月份有 3 个字母。

示例输出:

data.frame(id = c(1,2), date1 = c("2014-Dec 2018","2009-2010"), date2 = c("Feb 2016-Dec 2018","2014-Dec 2018"))

Answer 1

这是一种方法:

library(dplyr)

df %>%
  filter(!if_all(!id, ~ grepl('^[A-Z][a-z]{2}\\s+', .x)))

  id             date1             date2
1  1     2014-Dec 2018 Feb 2016-Dec 2018
2  2 Jan 2009-Aug 2010     2014-Dec 2018