重新编码日期是否大于？

Question

我有几个日期，所有发生在2005-06-12之后的事情都应重新编码为2005-06-12

# Example how the data looks like:
data <- data.frame(review_date = as.Date(c("2006-04-11","2001-01-01", "2005-06-12", "2007-07-09")))

，基本上是所需的输出，即2006-04-11和2007-07-09的日期成为2005-06-12。 thnx。

Answer 1

我们可以使用pmin

data$review_date <- pmin(data$review_date, "2005-06-12")
data$review_date
[1] "2005-06-12" "2001-01-01" "2005-06-12" "2005-06-12"

Answer 2

我们可以使用if_else：

library(dplyr)
data %>% 
  mutate(review_date = if_else(review_date > as.Date("2005-06-12"), as.Date("2005-06-12"), review_date))

  review_date
1  2005-06-12
2  2001-01-01
3  2005-06-12
4  2005-06-12