r - R積み上げ棒グラフ

Question

次のデータフレームがあります。

Var1    Var2
FALSE   FALSE
FALSE   TRUE
TRUE    FALSE
FALSE   TRUE
FALSE   FALSE

質問 1: 1 つの列だけを見ると、単純な積み上げ棒グラフ (真の上にすべての偽) を生成するにはどうすればよいですか?

質問 2: これら 2 つの (積み上げ) 棒グラフを 1 つのプロットに並べるにはどうすればよいですか?

課題の一部としてこれらのプロットが必要ですが、外部ライブラリ (ggplot など) を使用することは許可されていません

ありがとうございました

Answer 1

あなたのデータ：

dat<-read.table(text="Var1    Var2
FALSE   FALSE
FALSE   TRUE
TRUE    FALSE
FALSE   TRUE
FALSE   FALSE", header = TRUE)

で動作します

barplot(rbind(colSums(dat), colSums(!dat)))

Answer 2

質問はすでに回答されていますが、私はすでに仕事をしているので、とにかく私のものを提供します. :)

    df<-data.frame(Var1=c(FALSE, FALSE, TRUE, FALSE, FALSE), 
                   Var2=c(FALSE, TRUE, FALSE, TRUE, FALSE))
    barplot(t(rbind(Var1=table(df$Var1), var2=table(df$Var2))))