Question

我有一个大型数据框，我正在尝试根据数据框中的组构建一个字符串，以便在shinyTree中显示。

以下是数据示例：

dat <- data.frame("region" = c(paste("region", rep(1:3, each=4))),
              "area" = c(paste("area", rep(1:6, each=2))),
              "name" = c(paste("name",1:12)))

shinyTree要求数据以字符串形式构建，如下所示：

listString <- paste0("list('region 1' = list('area 1' = list('name 1'='', 'name 2'=''), 
                                         'area 2' = list('name 3'='', 'name 4'='')),
                       'region 2' = list('area 3' = list('name 5'='', 'name 6'=''), 
                                        'area 4' = list('name 7'='', 'name 8'='')),
                       'region 3' = list('area 5' = list('name 9'='', 'name 10'=''), 
                                        'area 6' = list('name 11'='', 'name 12'='')))")

有没有办法在dplyr中使用mutate和groups构造这个字符串？ "list("元素应连接到每个组的第一个匹配项上。

我已尝试嵌套for循环和嵌套lapply()函数compiler::cmpfun()以加快速度，但事实证明这种情况太慢而无法构建。我的数据有5个“级别”和~3000行，处理时间约为30秒，这对于闪亮的应用来说太慢了。

非常感谢任何帮助。

Answer 1

这是一个tidyverse解决方案。关键是使用summarise和str_c(collapse = )将相同的层次结构放在一起，然后mutate和str_c添加额外的list(调用和逗号/空格。包括collapse=表示将字符向量转换为具有所需分隔符的长度为1的字符向量，从而可以与summarise一起使用。我会尝试逐行运行，看看它是如何组合在一起的，交替格式化然后删除层次结构。最后的[[只是使它成为字符串格式而不是tibble。由于实际代码中有更多级别，因此我将更多重复的str_c调用包装到makelist和collapse函数中，以使其更清晰，更具可读性。

N.B。额外的好处是summarise删除了旧变量以供使用，并且还会删除分组级别，因此我们不需要任何额外的group_by或任何select来电！

library(tidyverse)
tbl <- tibble(
  "region" = c(paste("region", rep(1:3, each=4))),
  "area" = c(paste("area", rep(1:6, each=2))),
  "name" = c(paste("name",1:12))
)

makelist <- function(parent, child) str_c("'", parent, "' = list(", child, ")")
collapse <- function(level) str_c(level, collapse = ", ")

tbl %>%
  mutate(name = str_c("'", name, "'=''")) %>%
  group_by(region, area) %>%
  summarise(names = collapse(name)) %>%
  mutate(area = makelist(area, names)) %>%
  summarise(areas = collapse(area)) %>%
  mutate(region = makelist(region, areas)) %>%
  summarise(regions = collapse(region)) %>%
  mutate(liststr = str_c("list(", regions, ")")) %>%
  `[[`(1)
#> [1] "list('region 1' = list('area 1' = list('name 1'='', 'name 2'=''), 'area 2' = list('name 3'='', 'name 4'='')), 'region 2' = list('area 3' = list('name 5'='', 'name 6'=''), 'area 4' = list('name 7'='', 'name 8'='')), 'region 3' = list('area 5' = list('name 9'='', 'name 10'=''), 'area 6' = list('name 11'='', 'name 12'='')))"

由reprex package（v0.2.0）创建于2018-03-01。

从组dplyr构造字符串

1 个答案: