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命令。

如何在带有R的pdf中插入可点击链接

1 个答案: