如何将数值型ISO Week格式数据转换为date类适配ggplot绘图

ISO周格式日期转Date类解决方案 #

你直接调用as.Date()没有指定对应格式，R无法识别6位数字代表的「ISO年+ISO周」组合，所以转换失败。可以通过以下两种方式完成转换：

方案1：Base R原生方法

ISO周转日期需要补充一个固定的工作日锚点（比如取每周周一/周日作为该周的代表日期），使用%G（ISO纪年）、%V（ISO周数）、%u（周一到周日的工作日编码，1=周一，7=周日）作为格式参数：

# 示例：取每周周一作为该周的代表日期
data$date <- as.Date(paste0(data$date, "1"), format = "%G%V%u")

# 如果需要取每周周日，把末尾拼接的数字改成7即可
# data$date <- as.Date(paste0(data$date, "7"), format = "%G%V%u")

方案2：lubridate包方法（更简洁，适合tidyverse生态用户）

使用lubridate的日期解析函数，直接指定解析规则为ISO年+周即可：

# 未安装包先执行：install.packages("lubridate")
library(lubridate)

data$date <- parse_date_time(data$date, orders = "GW")

提示：如果使用非ISO标准的周历规则，请对应替换格式符：公历年用%Y，周日起始的周数用%U，周一起始的非ISO周数用%W。

转换完成后得到标准Date类数据，再用ggplot绘图时使用scale_x_date配置x轴，即可解决时间断层问题。

内容的提问来源于stack exchange，提问作者Nick Glättli