数据框中列总和的条形图

Barplot from Sums of Columns in Data Frame

我有一个包含 190 个观察值(行)的数据框。有五列,其中每个条目的值为 0 或 1。
如何获得一个条形图,其中包含 x 轴上五列的名称以及每列的 1 数(即总和)作为条形高度 - 最好使用 ggplot?
抱歉,我没有任何示例数据,我无法弄清楚如何生成符合描述的较小数据框。

只需取列总和并制作条形图。

barplot(colSums(iris[,1:4]))

### Load ggplot & create sample data
library(ggplot2)
sampledata=data.frame(a=rbinom(n,1,0.7),b=rbinom(n,1,0.6),
                    c=rbinom(n,1,0.5),d=rbinom(n,1,0.2),e=rbinom(n,1,0.3))

### Sum the data using apply & use this for beautiful barplot
sumdata=data.frame(value=apply(sampledata,2,sum))
sumdata$key=rownames(sumdata)
ggplot(data=sumdata, aes(x=key, y=value, fill=key)) +
geom_bar(colour="black", stat="identity")