如何在xts::to.period中指定OHLCV列名？

library(xts)

# 创建一个示例数据框
data <- data.frame(
  Date = as.Date(c("2022-01-01", "2022-01-02", "2022-01-03")),
  Open = c(100, 200, 300),
  High = c(150, 250, 350),
  Low = c(80, 180, 280),
  Close = c(120, 220, 320),
  Volume = c(1000, 2000, 3000)
)

# 将数据框转换为xts对象
xts_data <- xts(data[, -1], order.by = data$Date)

# 指定OHLCV列名
ohlc_cols <- c("Open", "High", "Low", "Close", "Volume")

# 使用to.period函数将数据转换为每日数据
daily_data <- to.period(xts_data, period = "days", colFUN = ohlc_cols)

# 打印转换后的数据
print(daily_data)