转置表格以供gt::gt()使用
转置表格以供gt::gt()使用
提问于 2020-07-23 12:00:04
我想在这个命令的末尾输入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)任何时候都可以。关于如何使表格垂直，有什么建议吗？也许轴翻转是一个可以添加到更新中的"bug“。
回答 1
Stack Overflow用户
回答已采纳
发布于 2020-07-23 12:05:46
您可以先使用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()
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/63046689
复制相关文章
相似问题
腾讯云开发者
