R gt 表格格式 : How can I take my long gt table and make it wide?

Question

我想采用 gt() 表并将其转换为“宽”格式而不是按组级别的“长”格式。因此，作为使用 iris 数据集的示例:

library(dplyr)  
library(gt)  
iris %>%   
group_by(Species) %>%   
slice_max(Sepal.Length, n=5) %>%  
group_by(Species) %>%  
gt() 

这产生:

但是，我想要制作的是以下内容:

有没有办法做到这一点？

Answer 1

我们可以通过数据 reshape 和 gt 的组合来做到这一点。格式化功能。我还重新格式化了列名以删除句点并将它们放在标题中。

library(tidyverse)  
library(gt)  

iris %>%   
  group_by(Species) %>%   
  slice_max(Sepal.Length, n=5) %>%   
  group_by(Species) %>% 
  mutate(row=row_number()) %>% 
  pivot_longer(-c(Species, row)) %>%
  mutate(Species = str_to_title(Species),
         name = gsub("\\.", " ", name)) %>% 
  pivot_wider(names_from=c(Species, name), values_from=value) %>% 
  select(-row) %>% 
  gt() %>% 
  tab_spanner_delim(
      delim="_"
  ) %>% 
  fmt_missing(
    columns=everything(),
    missing_text=""
  )