将 Int Dates 转换为 Date 变量 lubridate

Question

我有一个数据框，其中有一列日期为整数，例如192606 192607 等。 我的日期值只是年和月 我想将此整数形式更改为日期形式，以便将它们绘制在时间序列图中（ggplot）

我尝试使用 lubridate，但收到错误消息。

sss[,1]<-ymd(sss[,1])

编辑：

数据可以在这里找到：https://mba.tuck.dartmouth.edu/pages/faculty/ken.french/data_library.html

我正在处理 25 个投资组合，按规模和预定上市率排序

编辑 2：

这是我的数据框的输出。 感谢您的快速帮助！谢谢

str(sss) 编号 [1:1122, 1:5] 192607 192608 192609 192610 192611 ... - attr(*, "dimnames")=2 个列表 ..$ : 空 ..$ : chr [1:5] "Time" "Intercept" "Mkt" "smb" ...

Answer 1

看看这是否有帮助。
问题似乎是这些数字不应该被视为数字，而是以"YYYYMM" 格式编码日期的字符串。所以要强制到 R 类 "Date"，首先粘贴一天 01 然后强制使用 as.Date。

sss <- matrix(
  c(192607, 192608, 192609, 192610, 192611, 192612, 192701, 192702, 
    192703, 192704, 192705, 192706, 192707, 192708, 192709, 192710, 
    192711, 192712, 192801, 192802, 192803, 192804, 192805, 192806, 
    192807), 
  ncol = 1)

d <- as.Date(paste0(sss[, 1], "01"), format = "%Y%m%d")
head(d)
#[1] "1926-07-01" "1926-08-01" "1926-09-01" "1926-10-01" "1926-11-01"
#[6] "1926-12-01"

Answer 2

ymd 要求它是一个字符向量，其日期顺序可以是任何格式的年、月、日，只要日期是该顺序即可。您的列是整数类型，因此违反了这些规则。因此，要么使用来自 base 的 as.Date()，要么使用来自 lubridate 的 as_date()

as.Date(192606)
"2497-05-03"
lubridate::as_date(192606)
"2497-05-03"

因此，对于您的数据：

sss[,1] <- as_date(sss[,1])

如果数据不是数字：

sss[,1] <- as_date(as.numeric(sss[,1]))

由于格式是 YearMonth，我们可以使用：

library(zoo)
sss[,1] <-  as.yearmon(as.character(sss[,1, drop = T]), "%Y%m")

head(sss[,1])
# A tibble: 6 x 1
  Date     
  <yearmon>
1 Jul 1926 
2 Aug 1926 
3 Sep 1926 
4 Oct 1926 
5 Nov 1926 
6 Dec 1926 

如果sss 是一个矩阵，则将as.character() 包裹在as.yearmon 调用周围。这是因为，对于矩阵，所有数据必须是同一时间的。当类型混合时，所有数据都被强制转换为因子。这就是为什么你会得到你所做的价值观。因此，在将数据强制转换为因子之前，将列转换为字符。

sss[,1] <- as.character(as.yearmon(as.character(test[,1]), "%Y%m"))

虽然这可行，但在处理这样的数据时，您可能应该坚持使用数据帧。