使用magrittr更改值的子集

Question

我有一个时间序列数据框，其中包含星期几列。我想用星期日取代所有星期一（第1天）假期，星期日为6，而不用使用magrittr打破我的管道。

没有管道，它看起来像这样：

get_query_set()

但我想做这样的事情：

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

Answer 1

使用％in％来制作索引，然后用mutate替换我猜：

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