r - 如何处理 “write.xlsx”错误: arguments imply differing number of rows

Question

我正在尝试从我创建的数据帧列表中写入一个xlsx文件，但是由于缺少数据而导致出现错误(我无法下载)。除了缺少数据外，我只想编写xlsx文件。任何帮助表示赞赏。

对于问题的复制:

library(quantmod)

name_of_symbols <- c("AKER","YECO","SNOA")
research_dates <- c("2018-11-19","2018-11-19","2018-11-14")
my_symbols_df <- lapply(name_of_symbols, function(x) tryCatch(getSymbols(x, auto.assign = FALSE),error = function(e) { }))
my_stocks_OHLCV <- list()
for (i in 1:3) {
    trade_date <- paste(as.Date(research_dates[i]))
    OHLCV_data <- my_symbols_df[[i]][trade_date]
    my_stocks_OHLCV[[i]] <- data.frame(OHLCV_data)
}

而且您可以在 my_stocks_OHLCV[[2]]中看到丢失的数据，而我收到的 write.xlsx错误:

print(my_stocks_OHLCV)
[[1]]
           AKER.Open AKER.High AKER.Low AKER.Close AKER.Volume AKER.Adjusted
2018-11-19      2.67       3.2     1.56       1.75    15385800          1.75

[[2]]
data frame with 0 columns and 0 rows

[[3]]
           SNOA.Open SNOA.High SNOA.Low SNOA.Close SNOA.Volume SNOA.Adjusted
2018-11-14       1.1      1.14     1.01        1.1      107900           1.1

write.xlsx(my_stocks_OHLCV, "C:/Users/MICRO/Downloads/Datasets_stocks/dux_OHLCV.xlsx")

 Error in (function (..., row.names = NULL, check.rows = FALSE,
 check.names = TRUE,:arguments imply differing number of rows: 1, 0

即使我丢失了数据，如何运行write.xlsx？

Answer 1

您需要问的主要问题是，您想要什么？

在处理库存数据时，最好的想法是，如果没有库存数据，则将其删除。这样的事情应该起作用，

 my_stocks_OHLCV[lapply(my_stocks_OHLCV,nrow)>0]

如果您想要一行充满 NA或 0然后使用 lapply函数，对于列表中长度为0的每个元素，请替换为 NA的 vector ，0的 vector ( c(0,0,0,0,0,0))等。

像这样

condition <- !lapply(my_stocks_OHLCV,nrow)>0
my_stocks_OHLCV[condition] <- data.frame(rep(NA,6))

在这里，我们将条件变量定义为列表中没有任何数据的元素。然后，我们可以将这些替换为 NA或将 NA替换为 0。但是，我想不出这样做的理由。

您的问题的一种变体(可以在for循环内处理)是检查是否有数据，如果没有，则用 NA替换那里的值，并为它提供正确的 header ，例如你知道它涉及哪只股票。

希望这可以帮助。