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

我一直在用这个绘图来处理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)

库（ape）
archosaurs一种解决方案是调整绘图的x轴限制，例如：

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

这将为您提供以下数字：