ggtree facet_plot данных max, min и количества наблюдений

Question

library(ggtree)
library(ggstance)
# generate tree
tr <- rtree(30)
# create simple ggtree object with tip labels
p <- ggtree(tr) + geom_tiplab(offset = 0.02)
# Generate distribution of points for each species
d4 <- data.frame(id=rep(tr$tip.label, each=20), 
                val=as.vector(sapply(1:30, function(i) 
                  rnorm(20, mean=i)))) 

# Create panel with boxplot of the d4 data
p4 <- facet_plot(p, panel="Range", data=d4, geom_text( 
                 mapping = aes(x=val, group=label, color=location))           
plot(p4)

У меня есть выше ggtree с facet_plot. Я хотел бы добавить еще два аспекта: один с минимальным и максимальным, а другой с количеством наблюдений. Есть ли способ сделать это?