如何将R formattable渲染为pdf输出以及如何在表

Question

我开始使用R formattable包，但仍然面临一些问题，要求formattable()正确输出pdf文档。

第一个问题：在应用任何仅适用于数字类的color_*函数后，如何以百分比格式显示数字？

从R环境中执行/运行的代码中查看下表。

a<-formattable(x=a,list(A=color_bar("orange", 0.2),B=color_bar("orange", 0.2),C=color_bar("orange", 0.2),D=color_bar("orange", 0.2),E=color_bar("orange", 0.2)))

假设a为我csv输入的read.csv()文件。

我希望将“％”粘贴在数字上，同时将formattable的橙色条粘贴在一起，但如果我将numeric转换为percent或{来自percent()或scale格式表的{1}}无法正常工作paste(a,"%",sep="")是必需的。

第二个问题：当渲染为pdf时，来自所呈现的块的这样的表未被正确创建。我尝试使用numeric，formattable(a,list...)和print(a)的直接输出，但不以任何方式工作。任何提示？

Answer 1

问题第一部分的解决方案：

df <- data.frame(
  id = 1:10,
  A = sample(20:80, 10),
  B = sample(1:1000, 10),
  C = sample(1:10, 10),
  D = percent(runif(10, 0, 1), format = "d"), 
  E = percent(runif(10, 0, 1), format = "d"), 
  stringsAsFactors = FALSE)

formattable(df, list(
  A = color_tile("black", 0.2),
  B = color_tile("pink", 0.2),
  C = color_tile("orange", "gray"),
  D = color_tile("blue", 0.2),
  E = color_tile("green", 0.2)))

有关详细信息，请参阅文档：https://github.com/renkun-ken/formattable

关于pdf渲染 - 你总是可以让你的表成为'htmlwidget'，然后制作pdf printcreen。在R中，您可以尝试此功能(source)：

#' Export a Formattable as PNG, PDF, or JPEG
#'
#' @param f A formattable.
#' @param file Export path with extension .png, .pdf, or .jpeg.
#' @param width Width specification of the html widget being exported.
#' @param height Height specification of the html widget being exported.
#' @param background Background color specification.
#' @param delay Time to wait before taking webshot, in seconds.
#'
#' @importFrom formattable as.htmlwidget
#' @importFrom htmltools html_print
#' @importFrom webshot webshot
#'
#' @export
export_formattable <- function(f, file, width = "100%", height = NULL, 
                               background = "white", delay = 0.2)
{
  w <- as.htmlwidget(f, width = width, height = height)
  path <- html_print(w, background = background, viewer = NULL)
  url <- paste0("file:///", gsub("\\\\", "/", normalizePath(path)))
  webshot(url,
          file = file,
          selector = ".formattable_widget",
          delay = delay)
}