Как сократить / укоротить ветку в ggtree

Question

С филологическим деревом, сгенерированным с помощью AP-пакетов R и построением графиков с помощью ggtree - кто-нибудь знает способ сократить ветки?

Моя точка зрения заключается в том, что я сравниваю в основном внутривидовые виды, но добавил два наиболее близких вида, частично для того, чтобы укоренить дерево. Тем не менее, эволюционное расстояние от близкородственных видов, конечно, намного выше, чем внутривидовых, и это означает, что у меня есть сверхдлинная ветвь, которая занимает слишком много места + сложнее разглядеть детали внутривидовых различия, потому что изображение уменьшается, чтобы показать другие виды.

Очевидное ручное решение - изменить изображение вне R, но я бы предпочел решение для программирования.

Насколько я вижу, у ggtree есть функция zoom, но это касается только ширины клада, а не глубины. Я видел графики из ggtree с упомянутым выше видом усечения (показывающий усеченную область пунктирной линией), но я не знаю, были ли эти детали отредактированы после завершения графика.

Вот дерево, с которым я работаю

Вот код для создания дерева с данными из обезьяны. Проблема усечения может быть применена и к большинству ветвей здесь.

library(ape)
library(ggtree)
data("woodmouse")
woodmouse %>% 
  dist.dna() %>% 
  nj() %>% 
  ggtree() + 
  ggtitle("Example") + 
  geom_treescale()

Answer 1

Ты пытался

      ggtree()
  xlim(-18, +25) + 
  ggtitle("Example") + 
  geom_treescale()