小编Lau*_*a D的帖子

https://cran.r-project.org/web/packages/formattable/formattable.pdf

我一直在使用Formattable包在R中制作一些漂亮的表。我试图将这些表另存为图像（或实际上任何文件格式），但找不到有效的命令。使用jpeg / png函数或dev.copy创建空白文档。理想情况下，我希望能够将这些表循环保存。有谁知道该怎么做？

数据：

library(formattable)
DF <- data.frame(Ticker=c("", "", "", "IBM", "AAPL", "MSFT"),
                 Name=c("Dow Jones", "S&P 500", "Technology", 
                        "IBM", "Apple", "Microsoft"),
                 Value=accounting(c(15988.08, 1880.33, NA, 
                                    130.00, 97.05, 50.99)),
                 Change=percent(c(-0.0239, -0.0216, 0.021, 
                                  -0.0219, -0.0248, -0.0399)))

formattable(DF, list(
  Name=formatter(
    "span",
    style = x ~ ifelse(x == "Technology", 
                       style(font.weight = "bold"), NA)),
  Value = color_tile("white", "orange"),
  Change = formatter(
    "span",
    style = x ~ style(color = ifelse(x < 0 , "red", "green")),
    x ~ icontext(ifelse(x < 0, "arrow-down", "arrow-up"), x)))
)