how to keep branch length and resolved root, simultaneously？

[felixlee0608]

trafficstars

pacman::p_load(treeio,ggtree,patchwork)
set.seed(100)
p1 <- ggtree(root(rtree(10),outgroup="t10",resolve.root=T),branch.length = 'none')+geom_label2(aes(label=label))
p2 <- ggtree(root(rtree(10),outgroup="t10",resolve.root=T))+geom_label2(aes(label=label))
p1+p2+plot_annotation(tag_levels = 'A')

keep root as bifurcating node and keep branch length, simultaneously.