7

我正在通过使用ggplotly()和 htmltools 函数（如h3()和）创建各种对象来创建 html 文档html()。然后我将它们作为列表提交htmltools::save_html()以创建一个 html 文件。

我想直接将 ggplot 图表添加为图像，而不是附加所有的花里胡哨。最后，我将创建一个自包含的 html 文件（无依赖关系），而情节丰富的东西会使该文件过大。

是否有一些函数可以将 ggplot 对象转换为一些 html 类型的对象？或者我是否必须将 ggplot 保存为 .png 文件，然后将 .png 文件读入我在 save_html() 函数中添加到列表中的某个对象？

我的 R 代码如下所示：

library("tidyverse")
library("plotly")
library("htmltools")

HTMLOut <- "c:/Users/MrMagoo/My.html")
df <- data.frame(x=1:25, y=c(1:25*1:25))

g7 <- ggplot(df,aes(x=x, y=y)) + geom_point()
p7 <- ggplotly(g7)  # I would like to use something other than ggplotly here. Just capturing the ggplot as an image would be fine.

# create other objects to add to the html file
t7 <- h2(id="graph7", "Title for graph #7")
d7 <- p("description of graph 7")

save_html(list(t7, p7, d7), HTMLOut)
# of course, the real code has many more objects in that list – more graphs, text, tables, etc.

我想将 plotly 对象 (p7) 替换为仅以不会导致 save_html 函数出错的方式呈现 g7 的东西。

我曾希望找到一个可以直接对 ggplot 对象进行 Base64 编码的函数，但似乎我首先需要将“ggplot”对象输出为 .png 文件（或 SVG，根据 Teng L，如下），然后是 base64-encode它。我希望有一种更直接的方法，但我最终可能会这样做，就像在https://stackoverflow.com/a/33410766/3799203中一样，以

g7img <- "<img src=\"data:image/png;base64,(base64encode string)\""
g7img <- htmltools::html(g7img)
4

4 回答 4

9

如果要将绘图保存为动态plotly图，可以使用htmlwidgets::saveWidget. 这将生成一个独立的 html 文件。

这是一个最小的例子：

library(tidyverse);
library(plotly);
library(htmlwidgets);

df <- data.frame(x = 1:25, y = c(1:25 * 1:25))
gg <- ggplot(df,aes(x = x, y = y)) + geom_point()

# Save ggplotly as widget in file test.html
saveWidget(ggplotly(gg), file = "test.html");
于 2018-05-09T02:45:15.257 回答
6

我最终生成了一个临时图像文件，然后在我调用的函数中对其进行 base64 编码（从LukeA 的帖子encodeGraphic()中借用代码）：

library(ggplot2)
library(RCurl)
library(htmltools)
encodeGraphic <- function(g) {
  png(tf1 <- tempfile(fileext = ".png"))  # Get an unused filename in the session's temporary directory, and open that file for .png structured output.
  print(g)  # Output a graphic to the file
  dev.off()  # Close the file.
  txt <- RCurl::base64Encode(readBin(tf1, "raw", file.info(tf1)[1, "size"]), "txt")  # Convert the graphic image to a base 64 encoded string.
  myImage <- htmltools::HTML(sprintf('<img src="data:image/png;base64,%s">', txt))  # Save the image as a markdown-friendly html object.
  return(myImage)
}

HTMLOut <- "~/TEST.html"   # Say where to save the html file.
g <- ggplot(mtcars, aes(x=gear,y=mpg,group=factor(am),color=factor(am))) + geom_line()  # Create some ggplot graph object
hg <- encodeGraphic(g)  # run the function that base64 encodes the graph
forHTML <- list(h1("My header"), p("Lead-in text about the graph"), hg)
save_html(forHTML, HTMLOut)  # output it to the html file.
于 2018-05-15T13:52:08.490 回答
0

我认为您想要的可能接近以下之一：

  1. 似乎您正在创建 HTML 报告，但尚未签出RMarkdown。它带有Base64 编码。当您创建 RMarkdown 报告时，会pandoc自动将任何图表转换为文档中的 HTML 元素，因此报告是自包含的。

  2. SVG 绘图。这不太可能是您想要的，但 SVG 绘图是基于标记语言的，并且可能很容易移植。使用时指定.svg扩展名ggsave()，您应该会获得 SVG 图像。请注意，SVG 是绘图的原样实现，因此如果您有数千个形状和线条，文件大小可能会很大。

于 2018-05-09T02:49:25.550 回答
0

这是Maurits Evers 帖子的扩展。在这个答案中，我展示了如何以有组织的方式在同一个 html 文件中组合多个绘图：

library("plotly")
library("htmltools")

# a small helper function to avoid repetition
my_func <- function(..., title){
    ## Description:
    ##   A function to add title to put multiple gg plotly objects under a html heading
    ##
    ## Arguments:
    ##   ...: a list of gg objects
    ##   title: a character vector to specify the heading text
    
    # get the ... in list format
    lst <- list(...)
    
    # create the heading
    tmp_title <- htmltools::h1(title)
    
    # convert each ggplot to ggplotly and put them under the same div html tag
    tmp_plot <- lapply(lst, ggplotly) |>
        htmltools::div()
    
    # return the final object as list
    return(list(tmp_title, tmp_plot))
}

# a toy data
df <- data.frame(x = 1:25, y = c(1:25 * 1:25))

# the ggplot object using the toy data
gg <- ggplot(df,aes(x = x, y = y)) + geom_point()

# put everything in order
final_list <- list(my_func(obj = list(gg, gg, gg), title = "The first heading"),
                   my_func(obj = list(gg, gg), title = "The second heading"))

# write to disk as a unified HTML file
htmltools::save_html(html = final_list,
                     file = "index.html"))

免责声明：我专门这样做是为了避免使用 widgetframe R 包并与plotly-r 的文档完全一致。如果您对添加额外的依赖项和额外的抽象层感到满意，您可以阅读该链接。当且仅在必要时，我更喜欢使用包。:)

于 2021-12-07T19:17:13.217 回答