r - R堆积条形图

Question

我有以下数据框：

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

问题 1：当我们只看 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))))