如何将带有日期列的time.series对象写入R中的excel文件？

Question

有几种函数可以将data.frames写入excel，例如来自xlsx包的write.xls。但是，当我写一个时间序列时，它会使用行名称1,2,3，...而不是日期来保存数据。如何将日期保存为行名？

谢谢！

Answer 1

例如，您可以使用as.yearmon包中的lubridate：

require(lubridate)
require(zoo)

col_names <- as.yearmon(time(my_ts)) 

现在您可以创建一个新的数据框：

data.frame(col_names, my_ts)

Answer 2

创建一个包含两列的数据框 - 时间序列中的日期和值。

# Retrieve start date and end date from time series
start_date <- as.Date(start(tsobject)[1])
end_date <- start_date+length(tsobject)-1

# Make a data frame with two columns - date and value
df <- data.frame(date=seq(from=start_date, to=end_date, by=1),
                 value=tsobject)

# Write data to excel
write.xlsx(df, filename)