Rblpapi BDH：如何使用安全性作为列输出单个帧？

Question

我使用以下代码来获取Bloomberg的2只股票的历史信息。

library(Rblpapi)
opt <- c("periodicitySelection"="MONTHLY")
out1 <- bdh(securities = c("1 HK Equity", "2 HK Equity"),
        fields = "TOT_RETURN_INDEX_GROSS_DVDS",
        start.date = as.Date("2015-01-01"),
        end.date = "",
        options = opt,
        overrides = NULL)
out1

write.csv(out1, "c://R Data//TEST.csv")

生成的csv文件如下所示：

有没有办法让输出文件看起来像这样？