我正在尝试提供一个带有超链接的 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/