Я использовал Write.xlsx для экспорта своих результатов в каждую вкладку книги Excel, и она работает так, как мне хотелось бы, за исключением того, что она работает исключительно медленно.Мне потребовалось 9 с половиной часов, чтобы запустить около 120 строк write.xlsx.Вот код, который я использую, с примером "Fruit":
forecast_custom <- function(selected_fruit) {
df_sub <- subset(FruitData, Fruit == selected_fruit)
ts_sub <- ts(df_sub$avg)
forecast(auto.arima(ts_sub), h = 12)
}
Затем:
ForecastApple <- forecast_custom("Apple")
ForecastBanana <- forecast_custom("Banana")
Наконец:
write.xlsx2(ForecastApple, file="ForecastModel.xlsx", sheetName="Apple",
row.names=FALSE)
write.xlsx2(ForecastBanana, file="ForecastModel.xlsx", sheetName="Banana",
append=TRUE, row.names=FALSE)
И давайтепроизнесите эти прогнозы и напишите write.xlsx (я перешел с write.xlsx на write.xlsx2, и он все еще медленный) продолжайте 100 строк.Любая причина, почему это будет работать так медленно?
Спасибо!