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，向量0（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 s替换那里的值，然后如您所知，它为它指定了正确的标头。

希望这会有所帮助。

如何处理“ write.xlsx”错误：参数暗示不同的行数

1 个答案: