html - 使用 knitr(从 .Rhtml 到 html): how to embed a link in an R Figure?

Question

我正在使用 knit 将我的 .Rhtml 文件转换为 .html 文件。 我正在调用名为 Q1 的 block 的输出:

<!--begin.rcode Q1,echo=FALSE,fig.show="all",fig.align="center",warning=FALSE 
end.rcode--> 

block 来了，它基本上是一个 2x2 布局的 ggplot2 图。

library(ggplot2)
myplot = list()
   for (i in 1:4){
          x = 1:100
          y = sample(100,100)
          data = data.frame(x=x,y=y)
          myplot[[i]] = ggplot(data,aes(x=x,y=y))+geom_point()+labs(title="bla")}

do.call(grid.arrange,c(myplot,list(nrow=2,ncol =2)))

现在，在查看生成的 html 文件时，我想合并以下功能: 单击每个图的标题时，我希望有一个链接(例如到数据库)。 这有可能吗？

谢谢

Answer 1

这并不能完全回答您的问题，但它可能会让您或其他人开始寻找完整的答案。

Paul Murrel 的 gridSVG package (另请参见 this useful pdf doc)允许向基于网格 的 SVG 图形添加超链接。 (理论上它应该与 ggplot2 一起工作；实际上我刚刚让它与 lattice 一起工作)。 current issue of the R Journal包括几篇文章("What's in a name?" 和 "Debugging grid graphics." -- 警告:pdf)，它们可以帮助您最好地设计动态搜索，以搜索您想要添加链接的 grob 的名称(如我的第二行代码)。

library(gridSVG)
library(lattice)

xyplot(mpg~wt, data=mtcars, main = "Link to R-project home")
mainGrobName <- grep("main", grid.ls()[[1]], value=TRUE)
grid.hyperlink(mainGrobName, "http://www.r-project.org")
gridToSVG("HyperlinkExample.svg")