Edit requests of filter(., word %in% c("a", "b")) でエラー: 'filter' is longer than time series