转置 table 以与 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()

但是我无法转置 table

test <- t(test)

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

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()

转置 table 以与 gt::gt() 一起使用

Transposing a table for use with gt::gt()

transpose

r

gt