年份列到时间序列

Question

好的，这应该很简单但是我没有得到它。＆＃39;我有一个带有列的数据框＆＃34;年＆＃34;我想转换成时间序列，但格式让我感到沮丧。我如何转换＆＃34;年＆＃34;价值到日期，实际日期是每个年份的结束（例如2015年 - > 2015年12月31日）？

  Year   Production
1 1900     38400000
2 1901     43400000
3 1902     49000000
4 1903     44100000
5 1904     49800000

目标是将其转换为时间序列数据框。 （例如xts）

与将年份向量转换为日期的上一个问题不完全相同。 "Convert four digit year values to date type"。目标是按日期索引数据，将其转换为xts或类似对象。

编辑

：
这是最终的解决方案：

df <- xts(x = df_original, order.by = as.Date(paste0(df_original[,1], "-12-31")))

其中＆＃34; [，1]＆＃34;表示原始数据框的第一列。

Answer 1

如果您希望每个完整日期都是12月31日，则可以使用paste和as.Date投放日期：

df$date <- as.Date(paste0(df$Year, "-12-31"))

Answer 2

除了Tim Biegeleisen的回答，我还会添加另一种方式

df$final_date <- as.Date(ISOdate(df$Year, 12, 31))