r - 使用 magrittr 更改值的子集

Question

我有一个包含星期几列的时间序列数据框。我想用 6 代替星期日的所有星期一(第 1 天)假期，而不会使用 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% 来创建索引，然后用我猜的 mutate 替换:

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