如何解决可以在GT中使用迷你图吗?
我想在sparkline
的包装表中使用gt
迷你图表。可能吗?我知道可以使用formattable
,但是我更喜欢使用gt
表。这是我想完成的事情,以及如何使用formattable
来做到这一点。
library(tidyverse)
library(sparkline)
library(htmlwidgets)
library(formattable)
set.seed(27)
tibble(
name = rep(c("A","B"),each = 20),value = runif(40,min = -10,max = 10) %>% cumsum()
) %>%
group_by(name) %>%
summarise(
chart = spk_chr(
value,type="line")
) %>%
formattable(align=c("l")) %>%
as.htmlwidget() %>%
spk_add_deps()
解决方法
使用fmt_markdown
将列视为HTML。
library(tidyverse)
library(sparkline)
library(gt)
p <- tibble(
name = rep(c("A","B"),each = 20),value = runif(40,min = -10,max = 10) %>% cumsum()
) %>%
group_by(name) %>%
summarise(
chart = spk_chr(
value,type="line")
) %>%
gt() %>%
fmt_markdown(columns = vars(chart))
然后,使用htmltools::attachDependencies
p_html <- gt:::as.tags.gt_tbl(p)
p_html <- htmltools::attachDependencies(p_html,htmlwidgets::getDependency("sparkline"))
print(p_html,browse = interactive())
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。