通过将索引列分成两列，将ZOO（XTS）对象写入CSV文件

Question

我有2列（索引和值）ZOO对象，其中index包含日期和时间值：

2010-02-18 13:11:00 48.090 
2010-02-18 13:12:00 48.110 
2010-02-18 13:13:00 48.100

我想通过将索引列分成两个独立的列 - 日期列和时间列来将此ZOO对象保存为CSV：

2010-02-18,13:11:00,48.090 
2010-02-18,13:12:00,48.110 
2010-02-18,13:13:00,48.100

我怎么能这样做？

Answer 1

y <- data.frame(
    date=format(index(x), '%Y-%m-%d'),
    time=format(index(x), '%H:%M:%S'),
    x=as.numeric(x)
)
write.csv(y, ...)