R堆积的barplot

Question

我有以下数据框：

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

问题1：当我们只看一列时，我怎样才能生成一个简单的堆积条形图（所有虚假的顶部）？

问题2：我如何将这两个（堆积的）条形图彼此相邻放在一个图中？

我需要这些图作为作业的一部分，我不允许使用外部库（例如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))))