如何使用formattable折叠表中的行值组？

Question

我对使用formattable R包中的工具感兴趣，但是我只想在表中显示有变化的地方。也就是说，我希望通过kableExtra函数在collapse_rows()包中提供分层的行标签。

例如，使用kable()和kableExtra，我可以这样做：

library(dplyr)
library(knitr)
library(kableExtra) 

iris %>% 
  group_by(Species) %>% 
  slice(1:2) %>% 
  select(Species, everything()) %>% 
  kable() %>% 
  collapse_rows(1, valign="top")

产生这个：

但是，我想使用formattable包和函数来执行此操作，这样我就可以在输出期间在特定列上运行任意函数。具体来说，我想将“ sparklines”添加为新列。我可以使用knitr和formattble来做到这一点，但是据我所知，我输了collapse_rows。

有什么方法可以折叠formattable中的行？

Answer 1

collapse_rows编辑有线对象。如果您有look at the code，则根据所选的输出格式（HTML / PDF /文本）会进行很多不同的检查。

如果您正在寻找一种更常规的折叠行方法，则必须在绘制表格之前编辑data.frame。我已经编写了一个函数collapse_rows_df，它将折叠数据框中的指定列。

#' Collapse the values within a grouped dataframe
#' 
#' 
collapse_rows_df <- function(df, variable){

  group_var <- enquo(variable)

  df %>%
    group_by(!! group_var) %>%
    mutate(groupRow = 1:n()) %>%
    ungroup() %>%
    mutate(!!quo_name(group_var) := ifelse(groupRow == 1, as.character(!! group_var), "")) %>%
    select(-c(groupRow))
}

使用此功能，输出到formattable：

iris %>% 
  group_by(Species) %>% 
  slice(1:2) %>% 
  select(Species, everything()) %>%
  collapse_rows_df(Species) %>%
  formattable()

  

如果您对函数内使用enquo()或quo_name()感到困惑，则应查看dplyr如何使用非标准评估：https://dplyr.tidyverse.org/articles/programming.html