Maybe try the following via gridExtra,

library(gridExtra)
library(ggtree)
library(ape)
set.seed(2023-08-23)
my_tree <- rtree(30)
p <- ggtree(my_tree, mrsd='2022-12-31') %<+% 
  metadato_arbol + 
  geom_tippoint(size = 2) + 
  theme_tree2() # + geom_text(aes(label=node))
gridExtra::grid.arrange(p, p %>% rotate(33) %>% rotate(52), ncol=2)

Maybe try the following via gridExtra,

library(gridExtra)
library(ggtree)
library(ape)
set.seed(2023-08-23)
my_tree <- rtree(30)
p <- ggtree(my_tree, mrsd='2022-12-31') %<+% 
  metadato_arbol + 
  geom_tippoint(size = 2) + 
  theme_tree2() # + geom_text(aes(label=node))
gridExtra::grid.arrange(p, p %>% rotate(33) %>% rotate(52), ncol=2)