## plot with bars
p + geom_node_plot(gglist = list(geom_bar(aes(x = "", fill = !!tr$terms[[2]]),
position = position_fill()),
theme_classic(),
theme(axis.title = element_blank(),
axis.ticks.x = element_blank())))
## plot with bars of size according to n
p + geom_node_plot(gglist = list(geom_bar(aes(x = "", fill = !!tr$terms[[2]]),
position = position_fill()),
theme_void()),
size = "nodesize")
Just because I tried another example. Maybe this is helpful for testing or the vignette:
Created on 2019-04-15 by the reprex package (v0.2.1)