r - 如何使用 R 在 pdf 中插入可点击链接

Question

我用 pdf() 保存了用 R 生成的图功能(见下文)。是否可以向该图中添加可点击的超链接？ pdf() 的替代方案受欢迎的。

pdf(file="plot.pdf",width=20,height=50)
q <- ggplot(df, aes(x=reorder(desc,Value, FUN=median), y=Value))
q + geom_boxplot(aes(fill = factor(role)))+ coord_flip()
dev.off()

哪里 df$desc看起来像这样:

[1] "http://www.jcvi.org/cgi-bin/tigrfams/HmmReportPage.cgi?acc=TIGR02914  #  EpsI_fam: EpsI family protein  # Role: 141"                                        
[2] "http://www.jcvi.org/cgi-bin/tigrfams/HmmReportPage.cgi?acc=TIGR03067  #  Planc_TIGR03067: Planctomycetes uncharacterized domain TIGR03067  # Role: 157"     
[3] "http://www.jcvi.org/cgi-bin/tigrfams/HmmReportPage.cgi?acc=TIGR03021  #  pilP_fam: type IV pilus biogenesis protein PilP  # Role: 91"   

在pdf中，链接不可点击。

Answer 1

你可以用 Rsweave 做到这一点。 Rsweave 允许您从 LaTeX 中调用 R。

因此，使用我自己制作的数据的示例文件将是:

\documentclass{article}
\usepackage{hyperref}

\begin{document}
\SweaveOpts{concordance=TRUE}


<<echo=FALSE,fig=TRUE>>=
    library(ggplot2)
    q <- ggplot() + geom_point(data=data.frame(x = c(1,2,3,4),y=c(4,3,2,1)), aes(x=x,y=y))
    print(q)
@
\par{
    \url{http://google.com}
}

\end{document}

你可以从 Rstudio 编译它。如果文件具有 .rnw 扩展名，它将知道该怎么做。如果您从 R 编译，那么您可以使用 Sweave 命令。