Change facet width in ggplot2

Question

I have a plot made of several facet_plot ith this code :

library(ggplot2)
library(ggstance)
library(ggtree)
library(reshape2)

set.seed(123)
tree <- rtree(30)