tr <- rtree(30)
df <- data.frame(id = rep(tr$tip.label, each = 2),
value = abs(rnorm(60, mean = 0)),
category = rep(LETTERS[1:2], 30))
ggplot()+ geom_col(aes(x = id, y = value, fill = category), data = df) +
ylim(-1, NA) +
coord_polar()+
theme_bw()
![](https://img.haomeiwen.com/i19589140/db66631531ba7d41.png)
网友评论