如何在1個圖中繪製4個變量的總計條形圖？

Question

我想繪製一個圖中的4個變量的barcharts。

YearMonth Var1 Var2 Var3 Var4 
201501 11 21 31 41 
201501 12 22 32 42 
201502 13 23 33 43 
201502 14 24 34 44 
201503 15 25 35 45 
201503 16 26 36 46 

欲：分別

1. 薩姆的變量按月份
2. 然後按月份在總計一個曲線圖繪製了4個變量條形圖
3. x軸爲％Y- ％m，y軸計數
4. 差異變量的不同填充顏色。

我失去了在ggplot，stat_summary等功能....

我很欣賞我的問題的任何幫助。

Answer 1

爲了得到想要的結果，您需要控制數據並繪製它。包tidyverse將照顧。
首先你gather（變換）你的數據，並按變量和YearMonth分組，然後你按每個組進行求和。最後，您使用繪製ggplot2

library(tidyverse) 
d %>% 
    gather(variable, value, -YearMonth) %>% 
    group_by(variable, YearMonth) %>% 
    summarise(valueSum = sum(value)) %>% 
    ggplot(aes(YearMonth, valueSum, fill = variable)) + 
     geom_bar(stat = "identity", position = "dodge") + 
     labs(x = "YearMonth", 
      y = "Sum", 
      main = "Sum per Year Month")