将年和月转换为日期格式

Question

我有日期格式

192607 192608

并希望将它们转换为以下格式并可用于 xts 对象

1926-07-01 1926-08-01

我尝试过使用 as.date 和 paste() 但无法使其工作。 非常感谢帮助。谢谢！！

Answer 1

您需要粘贴然后输入格式日期。像这样：

dates <- c("192607", "192608")
dates  <- paste0(dates,"01")
dates <- as.Date(dates, format ="%Y%m%d")
dates

结果是

[1] "1926-07-01" "1926-08-01"

Answer 2

假设所有日期都将转换为该月的第一天，则此 lubridate 解决方案有效。

library(lubridate)

dates <- c(192607, 192608)

dates <- paste0(dates, '01') # add 01 for day of month

# output: "19260701" "19260801"

dates <- ymd(dates)

# output: "1926-07-01" "1926-08-01"