在 R 中使用 lubridate 仅提取日期和月份并保存日期格式答案

【问题标题】：Extract only day and month with lubridate in R and conserve the date format在 R 中使用 lubridate 仅提取日期和月份并保存日期格式
【发布时间】：2020-09-27 20:51:43
【问题描述】：

我想在不丢失 date 格式的情况下实现这一目标

ID    Date         DayMonth
1     2004-02-06   06-02
2     2006-03-14   14-03
3     2007-07-16   16-07
...   ...          ...

谢谢

这是一种方法，但有更快的方法并保持日期格式（as.date）

date = df %>% mutate(DayDate=day(Date)) %>% mutate(MonthDate=month(Date)) %>%
  unite(DayMonth, c("DayDate", "MonthDate"), sep = "-")

【问题讨论】：

标签： r date dplyr format lubridate

【解决方案1】：

创建两列后，我们可以直接使用format，而不是unite 步骤

library(dplyr)
df %>%
    mutate(DayMonth = format(as.Date(Date), "%d-%m"))
#  ID       Date DayMonth
#1  1 2004-02-06    06-02
#2  2 2006-03-14    14-03
#3  3 2007-07-16    16-07

或者使用base R

df$DayMonth <- format(as.Date(df$Date), "%d-%m")

基准测试

在稍微大一点的数据集上

library(tidyr)
library(lubridate)
df1 <- df %>% 
          uncount(1e6)
df1$Date <- as.Date(df1$Date)
system.time({df1 %>%
               mutate(DayDate=day(Date)) %>%
               mutate(MonthDate=month(Date)) %>%
               unite(DayMonth, c("DayDate", "MonthDate"), sep = "-")
                })
# user  system elapsed 
#  1.998   0.030   2.014 

system.time({df1 %>%
                mutate(DayMonth = format(Date, "%d-%m"))})
#   user  system elapsed 
#  1.119   0.001   1.118

数据

df <- structure(list(ID = 1:3, Date = c("2004-02-06", "2006-03-14", 
"2007-07-16")), row.names = c(NA, -3L), class = "data.frame")

【讨论】：

我不知道谁投了票，但我看到的是 OP 问了一个性能问题，上面的第一反应没有显示速度比较。一个解决方案可能是运行 a)OP mutate、b)dplyr format、c)baseR、d)paste 等并获得一些时间

【解决方案2】：

其他选择是：

date <-  df %>% as.Date(paste0(as.character(day(Date)), '-',as.character(month(Date))), format='%d-%m')

【讨论】：