r - 转置表以与 gt::gt() 一起使用

Question

我想gt在这个命令的末尾使用管道，但是该函数会创建一个列表，这是不允许的gt()

Error in UseMethod("group_vars"): no applicable method for 'group_vars' applied to an object of class "c('matrix', 'array', 'list')"`

test <- datasets::attenu%>% map(function(x) (sum(is.na(x)))) 
test %<>% t(.) 

如果我能做到

datasets::attenu %>% map(function(x) (sum(is.na(x)))) %>% as_tibble() %>% gt::gt()

但是我不能转置表格

test <- t(test)

在任何时候。关于如何使表格垂直的任何建议？也许轴翻转是一个“错误”，可以添加到更新中。

Answer 1

您可以先summarise获取长格式数据：

library(dplyr)
library(tidyr)

datasets::attenu %>%
   summarise(across(.fns = ~sum(is.na(.)))) %>%
   #Or use summarise_all in older version of dplyr
   #summarise_all(~sum(is.na(.))) %>%
   pivot_longer(cols = everything()) %>%
   gt::gt()