在R中修改日期显示格式时如何保持向量为Date类

首先明确R中Date类的底层逻辑：Date类型本质是存储为距离1970-01-01的天数的数值型向量，必须包含完整的年、月、日信息，不存在仅含年月的Date类对象。你需要的是保持日期类属性的前提下，仅在打印/展示时显示为%Y-%m格式，有两种常用实现方案：

方案1：转换为专用年月日期类（推荐，适合时间序列分析） #

使用zoo包的yearmon类，专门用于存储年月类型的日期，支持日期运算、排序，同时默认展示为年月格式：

library(tidyverse)
library(zoo)

dates %>% 
  mutate(Date = as.yearmon(as.Date(Date)))

输出的Date列类为yearmon，如果后续需要转回原生Date类，用as.Date(Date)即可，默认取当月第一天。

方案2：修改tibble的打印格式，严格保留原生Date类 #

如果必须严格保留R原生Date类，可以自定义tibble的打印规则，仅在展示时格式化，底层日期数据完全不受影响：

library(tidyverse)
library(pillar)

# 自定义Date类型的打印格式
pillar_shaft.Date <- function(x, ...) {
  pillar::new_pillar_shaft_simple(format(x, "%Y-%m"), align = "left")
}

dates %>% 
  mutate(Date = as.Date(Date))

此时Date列仍然是原生Date类，所有日期运算、筛选逻辑完全正常，仅打印时显示为年月格式。

注意：format()函数的设计定位就是将日期等对象转为指定格式的字符串，调用该函数必然返回字符型，无法通过这个函数保留Date类属性。

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