中空极坐标柱状图

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()

P.png