展开R图以适应分支图上的标签

Question

我用这个情节搞乱 pin ， mar 和 oma ，但我无法弄清楚神奇的组合，将容纳使用下面的代码生成的绘图的提示标签。任何建议都将不胜感激。

library(ape)

archosaurs <- read.tree(text = "(Crocodilians,(Pterosaurs, Dinosaurs));")

par(pin=c(6, 4), mar=c(0, 4, 1, 2))
plot(archosaurs, type = "cladogram", edge.width = 3, cex=1.5,
direction="upwards", adj = 0.25, srt=-45)

Answer 1

一种解决方案是调整绘图的x轴极限，例如：

plot(archosaurs, type = "cladogram", edge.width = 3, cex=1.5,
direction="upwards", adj = 0.25, srt=-45,x.lim=c(.5,3.5))

这将为您提供以下图：