title: How to furnish a ggplot2 figure with a hyperlink?
body: <p>I am trying to furnish a ggplot2 plot with a hyperlink:</p>
  
  <p>This works:</p>
  
  <pre><code>library(gridSVG)
  library(lattice)
  
  xyplot(mpg~wt, data=mtcars, main = "Link to R-project home")
  mainGrobName &lt;- grep("main", grid.ls()[[1]], value=TRUE)
  grid.hyperlink(mainGrobName, "http://www.r-project.org")
  gridToSVG("HyperlinkExample.svg")
  </code></pre>
  
  <p>This not:</p>
  
  <pre><code>p = ggplot(mtcars, aes(wt, mpg)) + geom_point()+ labs(title="link")
  print(p)
  mainGrobName &lt;- grep("title", grid.ls()[[1]], value=TRUE)
  grid.hyperlink(mainGrobName, "http://www.r-project.org")
  gridToSVG("HyperlinkExample.svg")
  </code></pre>
  
  <p>Any hints on this?</p>