我想从日期列列表创建一个名为 maxdate 和 mindate 的新列,假设有 4 个日期列并且有缺失值。
下面的解决方案只给出了列的行的最大值/最小值。我有兴趣在列中找到最大/最小日期。
df$maxdate <- apply (df[1:4], 1, max, na.rm = TRUE)
样本数据
col1 col2 col3 col4
11/09/1999 01/01/2000 12/09/1961 01/01/1930
11/09/1999 01/01/2000 10/03/1995 01/01/1939
11/09/1999 01/01/2000 30/03/1992 01/01/1942
11/09/1999 01/01/2000 25/05/1992 01/01/1936
11/09/1999 01/01/2000 25/05/1992 01/01/1937
像这样?
df <- data.frame(
col1 = c("11/09/1999", "11/09/1999", "11/09/1999", "11/09/1999", "11/09/1999"),
col2 = c("01/01/2000", "01/01/2000", "01/01/2000", "01/01/2000", "01/01/2000"),
col3 = c("12/09/1961", "10/03/1995", "30/03/1992", "25/05/1992", "25/05/1992"),
col4 = c("01/01/1930", "01/01/1939", "01/01/1942", "01/01/1936", "01/01/1937")
)
maxdate <- lapply(df, function (x) max(x, na.rm = TRUE))
> maxdate
$col1
[1] "11/09/1999"
$col2
[1] "01/01/2000"
$col3
[1] "30/03/1992"
$col4
[1] "01/01/1942"
请注意,我没有将其分配给列,因为行数!=列数,因此您无法将其添加到数据框。
library(dplyr)
df = data.frame(date1 = c("2023-05-11", "2023-04-12","2023-07-13","2023-01-14","2023-05-15"),
date2 = c("2023-04-11", "2023-07-12","2023-09-13","2023-05-14","2023-12-15"),
date3 = c("2023-08-11", "2023-06-12","2023-08-13","2023-08-14","2023-05-15"),
date4 = c("2023-01-11", "2023-05-12","2023-05-13","2023-12-14","2023-05-15"))
df <- df %>% mutate_all(as.Date)
# edit: removed rowwise and added na.rm=TRUE, as you seem to want the max from all rows, disregarding NAs?
df <- df %>% mutate(max_date = max(date1, date2,date3,date4, na.rm=TRUE))
df