ggtree显示的树的字体和大小

Question

我正在尝试使用R package ggtree来显示我的多基因树。我使用以下代码：

library(ggtree)
library(treeio)
tree_text<-read.table("tree.nwk")
tree <-read.tree(text=as.character(tree_text$V1))
ggtree(tree, layout="daylight") + geom_tiplab(aes(angle=angle))

树的一些尖端标签位于绘图区域之外且不可见。我使用dev.size（“in”）命令来获取图形窗口的大小，然后返回：[1] 5.760417 5.750000。我希望树可以在A4纸张尺寸区域显示，所以我尝试通过以下方式制作更大的图形窗口：

windows(height=8,width=8)
ggtree(tree, layout="daylight") + geom_tiplab(aes(angle=angle))

但它不起作用。 dev.size（“in”）命令仍然返回：[1] 5.760417 5.750000，树的一些尖端标签仍然在绘图区域之外。如果我使用ggsave保存图像：

p<-ggtree(tree, layout="daylight") + geom_tiplab(aes(angle=angle))    
ggsave("tree.eps",p,height=8,width=8)

它出错了：

Error in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y,  : 
      family 'sans' not included in postscript() device

如果我将图像保存为pdf文件：

postscript("tree.pdf",family="Times",fonts="sans")

它可以工作并且可以保存图像，但是树的一些尖端标签仍然在绘图区域之外。我尝试增加ggsave中的高度和宽度值，但树的大小随绘图画布增加，因此不可见的尖端标签总是不可见的

您知道如何纠正问题并显示树的所有完整提示标签吗？我将不胜感激任何帮助！

Answer 1

所以我去了ggtree。

以下代码来自包vignette。

library(ggtree)
raxml_file <- system.file("extdata/RAxML", "RAxML_bipartitionsBranchLabels.H3", package="treeio")
raxml <- read.raxml(raxml_file)
p <- ggtree(raxml) + geom_label(aes(label=bootstrap, fill=bootstrap)) + geom_tiplab() +
  scale_fill_continuous(low='darkgreen', high='red') + theme_tree2(legend.position='right')
p

添加xlim(0, 0.25) + ylim(0, 70)会显示大部分剪辑文本。

p + xlim(0, 0.25) + ylim(0, 70)