ggplot mehrere Binärgrößen in Gruppen

Question

meine Daten sieht wie folgt aus:

groupvar var1 var2 var3 var4 
group1  1  1  0  0 
group1  0  1  1  1 
group3  1  0  1  0 
group4  1  1  0  1 
group4  0  0  0  1 
group2  0  1  1  0 

Ich mag würde eine Ausgabe haben, die wie folgt aussieht:

Some made up data

Ich bin nicht sicher, wie Um dies zu tun, müssen die Daten irgendwie umgestaltet werden? Jede Hilfe wird geschätzt.

EDIT: Ich habe viel Zeit damit verbracht zu suchen, es ist sehr möglich, ich bin schlecht in der Suche, aber wenn Sie mich an der richtigen Stelle statt Downvoting würde soooooo viel besser sein.

Edit2: Ich nicht ganz weiß, wie dput zu verwenden, aber hier ist meine Ausgabe von ihm:

structure(list(groupvar = c("group1", "group1", "group2", "group2", 
"group2", "group3", "group3", "group3", "group1", "group1"), 
var1 = c(0, 0, 1, 0, 0, 0, 1, 1, 1, 1), var2 = c(0, 0, 1, 
1, 0, 1, 1, 1, 0, 1), var3 = c(1, 1, 0, 1, 1, 0, 1, 0, 0, 
0), var4 = c(1, 0, 1, 0, 1, 1, 1, 0, 1, 1)), .Names = c("groupvar", 
"var1", "var2", "var3", "var4"), row.names = c(NA, -10L), class = 
"data.frame") 

Answer 1

Ist das, was Sie suchen?

library(tidyverse) 
d <- read_csv("groupvar, var1, var2, var3, var4 
       group1,  1,  1,  0,  0 
       group1,  0,  1,  1,  1 
       group3,  1,  0,  1,  0 
       group4,  1,  1,  0,  1 
       group4,  0,  0,  0,  1 
       group2,  0,  1,  1,  0") 

td <- d %>% 
    gather(var, val, -1) %>% 
    group_by(groupvar, var) %>% 
    summarize(tot = sum(val)) 


ggplot(td, aes(groupvar, tot, fill = var)) + 
    geom_bar(stat = "identity", position = "dodge")