1

我有一个包含两个不同组及其值的数据集，如下所示：

example <- data.frame('Group' = c('building 1', 'building 1', 
                                  'building 2', 'building 2'),
                      'Subgroup' = c('Active','Inactive','Active','Inactive'),
                      'Value' = c('abc','def','ghi','jkl'))

我知道我可以使用 lapply 为每个“建筑物”输出工作簿：

buildings <- split(example, example$Group)

lapply(1:length(buildings), 
        function(x) write.xlsx(buildings[[x]], 
                               file = paste0(names(buildings[x]), '.xlsx'), 
                               row.names = FALSE))

同样，下面是基于列在 1 个工作簿中创建多个工作表的代码：

activity <- split(example, example$Subgroup)

lapply(1:length(activity), 
        function(x) write.xlsx(activity[[x]], file = 'All values.xlsx',
                               sheetName = paste0(names(activity[x])), 
                               append = TRUE, row.names = FALSE))

我的问题是，在 R 中有没有一种方法可以将这些组合起来（或者是否有另一种方法）以按组创建单独的工作簿，并按子组创建多个工作表？我想要的是具有 2 张工作表的 Building 1 文件：活动和非活动。

4

2 回答 2

1

您可以将数据拆分为嵌套列表，第一级由 分割，Group第二级由分割Subgroup。然后，您可以将它们循环写入带有单独工作表的工作簿。见下文;

library(dplyr)
library(xlsx)

example %>% 
  mutate_if(is.factor, as.character) %>% 
  split(., .$Group) %>% 
  lapply(., function(x) split(x, x$Subgroup)) %>% 
  lapply(., function(dat) 
    lapply(dat, function(dat.sub) 
      write.xlsx(dat.sub, 
                 file = paste0(as.character(unique(dat.sub$Group)), ".xlsx"),
                 sheetName = paste0(as.character(unique(dat.sub$Subgroup))), 
                 append = TRUE, row.names = FALSE)))
于 2020-10-16T16:29:56.907 回答
0

我将您的代码修改如下。由于openxlsx::write.xlsx()将自动使用命名列表的名称，例如activity，作为工作表的名称。您唯一需要做的就是buildings在lapply()函数中拆分。

example <- data.frame('Group' = c('building 1', 'building 1', 'building 2', 'building 2'),
                      'Subgroup' = c('Active','Inactive','Active','Inactive'),
                      'Value' = c('abc','def','ghi','jkl'))


buildings <- split(example, example$Group)

lapply(seq_along(buildings), 
       function(x) {
         activity <- split(buildings[[x]], buildings[[x]]$Subgroup)
         openxlsx::write.xlsx(
           activity,
           file = paste0(names(buildings[x]), '.xlsx'),
           row.names = FALSE
         )
       })
于 2020-10-16T16:28:31.997 回答