使用 dplyr 根据条件 R 过滤时间序列数据

Question

我有一个时间序列数据，如下所示。

                         keyword             byMonth        n_views
business tax preparation software           Dec-2016              5
    corporate income tax solution           Nov-2016              3
    corporate income tax solution           Mar-2017              2
          corporate tax provision           Dec-2016              5
          corporate tax provision           Oct-2016              1
                  data collection           Mar-2017             39
                  data collection           May-2017             26
                  data collection           Apr-2017             22
                  data collection           Feb-2017             15
                  data collection           Jan-2017             15
                  data collection           Nov-2016             13
                  data collection           Dec-2016              7
                  data collection           Oct-2016              6

我只想使用 dplyr 或任何其他方便的方法选择 2016 年 10 月至 2017 年 5 月期间的 keywords。所以在这种情况下，只有与Keyword: data collection 相关的观察结果应该是输出。我很难弄清楚这一点。非常感谢。

Answer 1

我们可以使用dplyr 和tidyr 中的函数。 dt2中的关键字是全月覆盖的案例。

library(dplyr)
library(tidyr)

dt2 <- dt %>%
  # Spread the data frame
  spread(byMonth, n_views) %>%
  # Filter rows without any NA
  filter(rowSums(!is.na(.)) == ncol(.))

更新：将数据框转换回原始格式

如果需要原始格式，我们可以使用gather将其转换回来。

dt3 <- dt2 %>%
  gather(byMonth, n_views, -keyword)

数据准备

dt <- read.table(text = "                        keyword             byMonth        n_views
'business tax preparation software'           'Dec-2016'              5
               'corporate income tax solution'           'Nov-2016'              3
               'corporate income tax solution'           'Mar-2017'              2
               'corporate tax provision'           'Dec-2016'              5
               'corporate tax provision'           'Oct-2016'              1
               'data collection'           'Mar-2017'             39
               'data collection'           'May-2017'             26
               'data collection'           'Apr-2017'             22
               'data collection'           'Feb-2017'             15
               'data collection'           'Jan-2017'             15
               'data collection'           'Nov-2016'             13
               'data collection'           'Dec-2016'              7
               'data collection'           'Oct-2016'              6",
               header = TRUE, stringsAsFactors = FALSE)