ggplot2_瀑布圖

df <- data.frame(
  group = c("A", "B", "C", "D", "E", "F"),
  value = c(100, -15, 25, -50, 45, 25)
)
df$group <- factor(df$group, levels = df$group)
df$id <- seq_along(df$value)
df$end <- cumsum(df$value)
df$end <- c(head(df$end, -1), 0)
df$start <- c(0, head(df$end, -1))
ggplot(df, aes(x=group, y=value, fill=group))+theme_gray()+
  geom_rect(aes(x = group, xmin = id -0.4, xmax = id + 0.45, ymin = end, ymax = start)) +  
  theme(axis.title=element_blank(), 
        axis.text=element_blank(),
        axis.ticks=element_blank())  +  #刪除XY軸
  guides(fill = FALSE, color = FALSE, linetype = FALSE, shape = FALSE)  #刪除圖例