如何将「Year-ISO Week」字符对象转换为Date对象？

问题根源 #

1. 字符串"2021-20"本身是字符类型，class("2021-20")返回character是正常行为，Date类型必须通过显式转换生成。
2. 使用as.Date("2021-20", format = "%Y-%W")出错的原因：
   • %W是周日起始的周数定义，和ISO周（周一为起始）的%V标准不兼容；
   • 转换Date需要完整的日期信息，仅提供年和周数时，R会默认填充当前会话的星期几参数，导致结果异常且固定。

解决方案 #

1. 将Year-ISO Week字符串转为Date对象

ISO周的标准是：周一为一周起始，一年的第一周包含1月4日。转换时必须补充星期几（通常取每周一作为该周的代表日期），使用%G-%V-%u格式：

# 直接转换带星期几的ISO周字符串
as.Date("2021-20-1", format = "%G-%V-%u")
# 输出："2021-05-17"（2021年第20周的周一）

# 若原始字符串只有年-周，手动拼接星期几
week_str <- "2021-20"
as.Date(paste0(week_str, "-1"), format = "%G-%V-%u")

2. 将常规Date转为Year-ISO Week格式

用strftime()指定%G-%V格式即可得到标准ISO周字符串：

date_obj <- as.Date("2021-05-17")
strftime(date_obj, format = "%G-%V")
# 输出："2021-20"

3. ggplot2绘图适配

不需要将ISO周字符串转回Date，两种方式实现绘图：

方式一：用ISO周字符串作为x轴（天然有序）

library(ggplot2)
library(dplyr)

# 示例数据
df <- data.frame(
  date = seq(as.Date("2021-01-01"), as.Date("2021-12-31"), by = "day"),
  value = rnorm(365)
)

# 按ISO周聚合
df_weekly <- df %>%
  mutate(iso_week = strftime(date, "%G-%V")) %>%
  group_by(iso_week) %>%
  summarise(avg_value = mean(value))

# 绘图
ggplot(df_weekly, aes(x = iso_week, y = avg_value)) +
  geom_col() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

方式二：保留Date对象，显示为ISO周格式

# 按每周一聚合
df_weekly2 <- df %>%
  mutate(week_start = floor_date(date, "week", week_start = 1)) %>%
  group_by(week_start) %>%
  summarise(avg_value = mean(value))

# 绘图时设置x轴显示为ISO周
ggplot(df_weekly2, aes(x = week_start, y = avg_value)) +
  geom_col() +
  scale_x_date(date_labels = "%G-%V", date_breaks = "1 week") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

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