将迷你图添加到 R 中的 flextable

Question

我正在尝试将迷你图与我为报告创建的弹性表一起使用。不幸的是，我无法让函数 tabwid() 工作，将其转换为 HTML 小部件。它被引用为 flextable v0.4.0 的一部分，但它不在 v0.5 中。

我在下面的文档中注意到 tabwid() 函数已被弃用： https://www.rdocumentation.org/packages/flextable/versions/0.4.0/topics/tabwid

v0.5 中是否有等效功能？如果没有，还有其他方法可以在 sparktable 中使用 sparkline 函数吗？

我注意到在 2016 年与 flextable 的开发人员进行了一次对话，其中描述的代码包括 tabwid() 函数。我找不到替代方案，如果提供任何指导，我将不胜感激。

https://github.com/davidgohel/flextable/issues/1

上面链接中引用的代码如下：

#devtools::install_github("davidgohel/oxbase") #devtools::install_github("davidgohel/flextable")

#devtools::install_github("htmlwidgets/sparkline")

库(dplyr) 库(oxbase) 库(flextable) 库(sparkline)

mtcars %>% group_by(cyl) %>% summarise( hp = spk_chr( 惠普，类型=“框”， chartRangeMin=0, chartRangeMax=max(mtcars$hp) ), mpg = spk_chr( mpg，类型=“框”， chartRangeMin=0, chartRangeMax=max(mtcars$mpg) ) ) %>% flextable() %>% tabwid() %>% spk_add_deps()

如果这不可能，有没有其他人找到一种方法将迷你图添加到弹性表中（例如，通过另一个包？）？

提前感谢您提供的任何指导！

Answer 1

使用 github 上的开发版，您可以执行以下操作 - 这些不是交互式图形：

# remotes::install_github("davidgohel/flextable")
library(data.table)
library(magrittr)
library(flextable)

# data prep ----
z <- as.data.table(iris)
z <- z[, list(
  Sepal.Length = mean(Sepal.Length, na.rm = TRUE),
  z = list(.SD$Sepal.Length)
), by = "Species"]

# flextable ----
ft <- flextable(
  data = z,
  col_keys = c("Species", "Sepal.Length", "box", "density", "line")
) %>%
  compose(j = "box", value = as_paragraph(
    plot_chunk(
      value = z, type = "box",
      border = "white", col = "transparent", 
      width = 1.5, height = .4
    )
  )) %>%
  compose(j = "line", value = as_paragraph(
    plot_chunk(value = z, type = "line", col = "white", 
               width = 1.5, height = .4)
  )) %>%
  compose(j = "density", value = as_paragraph(
    plot_chunk(value = z, type = "dens", col = "white", 
               width = 1.5, height = .4)
  )) %>%
  theme_vader() %>%
  align(j = c("box", "density", "line"), align = "center", part = "all") %>%
  autofit()
ft