データフレーム内の列の合計からの棒グラフ

Question

私は190の観測（行）を持つデータフレームを持っています。 5つの列があり、各項目の値は0または1です。
x軸の5つの列の名前と1の数（つまり合計）を持つbarplotを取得するにはどうすればよいですか列の高さを棒グラフにする - ggplotを使用するのが好ましい？
申し訳ありませんサンプルデータがありません。説明に合った小さなデータフレームを作成する方法がわかりませんでした。

Answer 1

ちょうど列の合計を取って、バープロットを作成します。

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

Answer 2

### 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")