ggtree显示的树的字体和大小

Question

我正在尝试使用R包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)

​

​