date - 如何获取其中包含 num 和 Date 对象的 zoo 对象？

Question

我想在动物园对象中转换我的excel（银行回报和日期），动物园对象中的数据是数字和日期。我使用了以下数据：

Classes ‘tbl_df’, ‘tbl’ and 'data.frame':   1455 obs. of  2 variables:
 $ date         : POSIXct, format: "1925-01-02" "1925-01-03" "1925-01-05" "1925-01-06" ...
 $ Deutsche Bank: num  0.181 0.191 0.191 0.184 0.186 ...

我使用了以下代码：

db.xts <- na.omit(as.data.frame(db.kurs))

db.xts2 <- db.xts %>% mutate(date = as.Date(date, format = "%d.%m.%Y")) %>% mutate(`Deutsche Bank` = as.numeric(`Deutsche Bank`))

db.xts3 <- as.xts(db.xts2, db.kurs$date)
db.zoo <- as.zoo(db.xts3)
db.zoo <- db.zoo[, colnames(db.zoo) != "date"]

这给我留下了以下内容：

‘zoo’ series from 1925-01-02 to 1929-12-31
  Data: chr [1:1455] "0.1807194" "0.1911455" "0.1911455" "0.1841948" "0.1859325" "0.1841948" "0.1807194" "0.1789817" ...
  Index:  POSIXct[1:1455], format: "1925-01-02" "1925-01-03" "1925-01-05" "1925-01-06" "1925-01-07" "1925-01-08" "1925-01-09" "1925-01-10" ...

如果我尝试在没有 as.xts 命令的情况下运行它，R 会删除所有日期并使用 1 到 1455 之间的迭代器。有人知道如何解决它吗？

谢谢您的帮助，

缺口