使用magrittr更改值的子集

Question

我有一个时间序列数据和一天一周的专栏。我想替换所有的星期一(第一天)，是假日为周日6，而不打破我的管道使用magrittr。

如果没有管道，则如下所示：

dates = c("5/24/15", "5/25/15", "5/26/15", "5/27/15", "5/28/15", "5/29/15", "5/30/15")
df <- data.frame(date = as.POSIXct(dates,format = "%m/%d/%y"), day = 0:6, value = 1:7)
holidays <- c("2015-05-25")
df$day[df$date %in% as.POSIXct(holidays)] <- 6

但我想这样做：

df <- df %>%
  filter(value < 30) %>%
  mutate(new_variable = something) %>%
  REPLACE HOLIDAYS WITH SUNDAY HERE

Answer 1

使用%in%来创建索引，然后用变体替换，我猜：

df %>% mutate(day=replace(day, date %in% as.POSIXct(holidays), 6))