r - 如何将列表的所有元素放入/保存到 R 中的一张 Excel 工作表中？

Question

我有一个包含 5 个元素的列表 (bbb)，即一年的每个元素，例如 2010、2011、...、2014:

列表中的第一个是这样的:

> bbb[1]
$`2010`
              Date      Average
X2010.01.01 2010-01-01 2.079090e-03
X2010.01.02 2010-01-02 5.147627e-04
X2010.01.03 2010-01-03 2.997464e-04
X2010.01.04 2010-01-04 1.375538e-04
X2010.01.05 2010-01-05 1.332109e-04

列表中的第二个是这样的:

> bbb[2]
$`2011`
              Date      Average
X2011.01.01 2011-01-01 1.546253e-03
X2011.01.02 2011-01-02 1.152864e-03
X2011.01.03 2011-01-03 1.752446e-03
X2011.01.04 2011-01-04 2.639658e-03
X2011.01.05 2011-01-05 5.231150e-03
X2011.01.06 2011-01-06 8.909878e-04

等等。

这是我的问题:

如何将所有这些列表的元素保存在一张 Excel 文件中以具有如下内容:



您的帮助将不胜感激。

Answer 1

您可以使用 dcast .

bbb <- list(`2010` = data.frame(date = as.Date("2010-01-01") + 0:4,
                                avg = 1:5),
            `2011` = data.frame(date = as.Date("2011-01-01") + 0:5,
                                avg = 11:16),
            `2012` = data.frame(date = as.Date("2012-01-01") + 0:9,
                                avg = 21:30),
            `2013` = data.frame(date = as.Date("2013-01-01") + 0:7,
                                avg = 21:28))
df <- do.call("rbind", bbb)
df$year <- format(df$date, format = "%Y")
df$month_date <- format(df$date, format = "%b-%d")

library(data.table)
library(openxlsx)
df_dcast <- dcast(df, month_date~year, value.var = "avg") 
write.xlsx(df_dcast, "example1.xlsx")

或使用 spread

library(dplyr)
library(tidyr)
df2 <- df %>% 
  select(-date) %>%
  spread(key = year, value = avg)
write.xlsx(df2, "example2.xlsx")