ggplot2_堆疊長條圖

library(ggplot2)
library(tidyr)
library(dplyr)
library(reshape)
df <- VADeaths %>%
  as.data.frame() %>%
  mutate(age = rownames(.)) %>%
  gather(key = 'key', value = 'value', -age) 
df %>%  ggplot() +
  geom_bar(aes(x = age, y = value, fill = key), stat = 'identity',position = "stack")+
  theme(axis.title=element_blank(), 
        axis.text=element_blank(), 
        axis.ticks=element_blank())+ 
  guides(fill = FALSE, color = FALSE, linetype = FALSE, shape = FALSE, size = FALSE)  #刪除圖例