R:将xts或zoo对象转换为数据框

library(xts)
library(zoo)

# 创建一个xts对象
data_xts <- xts(1:5, order.by = as.Date(c("2022-01-01", "2022-01-02", "2022-01-03", "2022-01-04", "2022-01-05")))

# 将xts对象转换为数据框
data_df <- as.data.frame(data_xts)

# 创建一个zoo对象
data_zoo <- zoo(1:5, order.by = as.Date(c("2022-01-01", "2022-01-02", "2022-01-03", "2022-01-04", "2022-01-05")))

# 将zoo对象转换为数据框
data_df <- as.data.frame(data_zoo)