5

我开始使用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为percentby percent()fromscale或 by paste(a,"%",sep="")formattable 将无法正常工作，因为这numeric是必需的。

第二个问题：当呈现为 pdf 时，所呈现的块中的此类表未正确创建。我尝试使用formattable(a,list...), byprint(a)和 by 的直接输出，print(xtable(a))但没有以任何方式工作。有什么提示吗？

4

1 回答 1

3

解决问题的第一部分：

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 打印屏幕。在 R 中，您可以尝试此功能（来源）：

#' 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)
}
于 2016-03-26T22:46:40.553 回答