[英]replace all dates that occur after a specified end date with an *NA* in a rowwise manner
我想以行方式用NA替換存儲在“date_end”列中的指定結束日期之后發生的所有日期。
原始數據框:
date_end <-as.Date(c("2019-07-31", "2019-07-17", "2019-12-18"))
date1 <-as.Date(c("2019-10-31", "2019-05-01", "2019-07-27"))
date2 <-as.Date(c("2019-01-30", "2019-07-15", "2019-09-09"))
date3 <-as.Date(c("2019-03-19", "2020-01-15", "2019-12-08"))
date4 <-as.Date(c("2019-07-31", "2020-08-05", "2020-07-01"))
df <- data.frame(date_end, date1, date2, date3, date4)
想要這樣的數據框:
date_end <-as.Date(c("2019-07-31", "2019-07-17", "2019-12-18"))
date1 <-as.Date(c("2019-10-31", "2019-05-01", "2019-07-27"))
date2 <-as.Date(c("2019-01-30", "2019-07-15", "2019-09-09"))
date3 <-as.Date(c("2019-03-19", NA, "2019-12-08"))
date4 <-as.Date(c("2019-07-31", NA, NA))
df_new <- data.frame(date_end, date1, date2, date3, date4)
這也應該有效 - 只要第一行的 date1 應該是 NA 因為它在相應的結束日期之后:
date_end <-as.Date(c("2019-07-31", "2019-07-17", "2019-12-18"))
date1 <-as.Date(c("2019-10-31", "2019-05-01", "2019-07-27"))
date2 <-as.Date(c("2019-01-30", "2019-07-15", "2019-09-09"))
date3 <-as.Date(c("2019-03-19", "2020-01-15", "2019-12-08"))
date4 <-as.Date(c("2019-07-31", "2020-08-05", "2020-07-01"))
df <- data.frame(date_end, date1, date2, date3, date4)
# create duplicate dataframe
df_new <- df
# use a loop to add NA to cells where the date is after the corresponding date_end
for (i in 1:nrow(df_new)) { # fo each row
for (j in 2:length(df_new)) { # for each column after date_end
if (df_new[i,1] < df_new[i,j]) { # if date in cell [i,j] is after end date of row i
df_new[i,j] <- NA # replace with NA
}
}
}
df_new
date_end date1 date2 date3 date4
1 2019-07-31 <NA> 2019-01-30 2019-03-19 2019-07-31
2 2019-07-17 2019-05-01 2019-07-15 <NA> <NA>
3 2019-12-18 2019-07-27 2019-09-09 2019-12-08 <NA>
這應該有效:
library(dplyr)
library(lubridate)
date_end <-as.Date(c("2019-07-31", "2019-07-17", "2019-12-18"))
date1 <-as.Date(c("2019-10-31", "2019-05-01", "2019-07-27"))
date2 <-as.Date(c("2019-01-30", "2019-07-15", "2019-09-09"))
date3 <-as.Date(c("2019-03-19", "2020-01-15", "2019-12-08"))
date4 <-as.Date(c("2019-07-31", "2020-08-05", "2020-07-01"))
df <- data.frame(date_end, date1, date2, date3, date4)
df %>%
rowwise() %>%
mutate(across(date1:date4, ~case_when(.x <= date_end ~ .x,
TRUE ~ NA_Date_)))
#> # A tibble: 3 × 5
#> # Rowwise:
#> date_end date1 date2 date3 date4
#> <date> <date> <date> <date> <date>
#> 1 2019-07-31 NA 2019-01-30 2019-03-19 2019-07-31
#> 2 2019-07-17 2019-05-01 2019-07-15 NA NA
#> 3 2019-12-18 2019-07-27 2019-09-09 2019-12-08 NA
由reprex 包於 2022-05-10 創建 (v2.0.1)
這是使用sapply
的基本 R 解決方案:
df[,-1][sapply(df[,-1], function(x) as.Date(x) > as.Date(df$date_end))] <- NA
輸出
date_end date1 date2 date3 date4
1 2019-07-31 <NA> 2019-01-30 2019-03-19 2019-07-31
2 2019-07-17 2019-05-01 2019-07-15 <NA> <NA>
3 2019-12-18 2019-07-27 2019-09-09 2019-12-08 <NA>
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.