将xts对象与dataframe合并或cbind

library(xts)

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

# 创建一个dataframe
df_data <- data.frame(A = c(10, 20, 30, 40, 50), B = c("a", "b", "c", "d", "e"))

# 将xts对象与dataframe合并
merged_data <- cbind(xts_data, df_data)

# 打印合并后的结果
print(merged_data)

           xts_data A B
2022-01-01        1 10 a
2022-01-02        2 20 b
2022-01-03        3 30 c
2022-01-04        4 40 d
2022-01-05        5 50 e