“Week-Year”字符串为有意义的日期或可以绘制的数字格式

Question

我有一组数据，包括“周 - 年”格式的日期。因此，“30-2010”代表2010年的第30周。我正在尝试绘制数据，但需要将日期值调整为日期格式或数值，以便ggplot2将其用作标签在我的x轴上。关于如何做到这一点的任何想法？

dte = "30-2010"

Answer 1

查看lubridate包中的?week。这似乎做你想要的：

library(lubridate)
str <- "30-2010"
wk <- substr(str, 1, 2)
yr <- substr(str, 4, 7)
dt <- as.Date(paste0(yr, "-01-01"))
week(dt) <- as.numeric(wk)
dt
[1] "2010-07-23"