ggplot2の複数のバイナリ列にわたる頻度ヒストグラム？

Question

は、私はこのようなデータセットがあります。

Var1 Var2 Var3 
1 NA 1 
1 NA NA 
1 NA NA 
NA 1 NA 

変数が異なる列に、バイナリでは、相互に排他的ではありません（それはからの質問に「該当するものをすべて選択します」）。

私はggplot2でヒストグラムを取得しようとしていますが、この作業を行うためにデータを適切な場所に取得する方法を理解できません。私は何が欠けていますか？

おかげ

Answer 1

df = read.table(text="Var1 Var2 Var3 
1 NA 1 
1 NA NA 
1 NA NA 
NA 1 NA", 
header=TRUE, stringsAsFactors=FALSE) 

library(ggplot2) 
Tab = data.frame(values=colSums(df, na.rm=TRUE), names = names(df)) 
ggplot(data=Tab, aes(x=names, y=values)) + 
    geom_bar(stat="identity") 

またはベースRで

barplot(colSums(df, na.rm=TRUE))