r - 如何为ggplot2图形提供超链接？

我正在尝试为ggplot2图提供超链接:

这有效:

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")

这不是:

p = ggplot(mtcars, aes(wt, mpg)) + geom_point()+ labs(title="link")
print(p)
mainGrobName <- grep("title", grid.ls()[[1]], value=TRUE)
grid.hyperlink(mainGrobName, "http://www.r-project.org")
gridToSVG("HyperlinkExample.svg")

有什么提示吗？

最佳答案

我问过gridSVG软件包的作者之一西蒙·波特:
这是他的(有效的)答案:

我建议您在这里尝试开发版本:

http://r-forge.r-project.org/R/?group_id=1025

它包含专门用于处理gTables(以及ggplot2图形)的解决方法。

因此，为使您的示例正常工作，请启动一个新的R session 并运行以下代码:

install.packages("gridSVG", repos="http://R-Forge.R-project.org")
library(gridSVG)
library(ggplot2)
(p <- ggplot(mtcars, aes(wt, mpg)) + geom_point() + labs(title="link"))
titleGrobName <- grep("title", grid.ls(print=FALSE)$name, value=TRUE)
grid.hyperlink(titleGrobName, "http://www.r-project.org/")
gridToSVG("HyperlinkExample.svg", "none", "none")

唯一真正的区别是给gridToSVG()的附加参数。这主要是为了将输出减少为仅SVG文件和HTML包装器(否则，您还将获得一些JSON数据，这对于您的示例没有用)。

关于r - 如何为ggplot2图形提供超链接？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/14071210/