如何用lubridate将数据框date列格式化为%Y-%m且保留date类型

问题原因 #

format()函数的核心作用是将日期对象转换为字符向量，因此使用后会丢失date类型。要同时保留date类型并按%Y-%m格式显示，需要从存储逻辑和打印格式两个角度处理。

解决方案 #

方案1：仅修改打印格式（保留完整日期存储）

通过全局选项设置日期的默认显示格式，底层仍存储完整的date类型：

# 设置全局日期显示格式为%Y-%m
options(strftime = "%Y-%m")

# 创建数据框
df <- tibble::tibble(
  date = lubridate::ymd(c("2023-01-01", "2023-01-02", "2023-01-03"))
)

# 打印时自动显示为%Y-%m格式
df
#> # A tibble: 3 x 1
#>    date   
#>    <date> 
#>  1 2023-01
#>  2 2023-01
#>  3 2023-01

注：该设置会影响所有日期对象的打印，若仅需针对单个数据框，可自定义tibble的打印方法（需额外代码）。

方案2：使用年月专属类型（存储年月信息）

利用lubridate包的yearmonth()类型，专门存储年月信息，默认支持按%Y-%m显示：

library(lubridate)
library(dplyr)

df <- tibble::tibble(
  date = ymd(c("2023-01-01", "2023-01-02"))
)

# 转换为yearmonth类型
df <- df %>% mutate(date = yearmonth(date))

# 设置yearmonth的显示格式为%Y-%m
options(lubridate.yearmonth.format = "%Y-%m")

df
#> # A tibble: 2 x 1
#>    date   
#>    <yearmon>
#>  1 2023-01
#>  2 2023-01

注：yearmonth类型支持日期运算（如加减月份），兼具类型安全性和显示简洁性。

方案3：截断日期到当月第一天（保留date类型）

将所有日期统一转换为当月第一天，既保留date类型，又能通过打印格式实现%Y-%m显示：

library(dplyr)
library(lubridate)

df <- tibble::tibble(
  date = ymd(c("2023-01-01", "2023-01-02"))
)

# 截断日期到当月第一天
df <- df %>% mutate(date = floor_date(date, "month"))

# 设置打印格式
options(strftime = "%Y-%m")

df
#> # A tibble: 2 x 1
#>    date   
#>    <date> 
#>  1 2023-01
#>  2 2023-01

内容的提问来源于stack exchange，提问作者joshbrows