如何获得虚拟变量的堆积条形图

编辑：根据您的评论，这是您要寻找的吗？

library(reshape2)
tmp <- melt(dat, id.vars = NULL)
names(tmp) <- c('Occupation', 'ID')

ggplot(data = tmp, aes(x = Occupation, fill= ID)) + geom_histogram()

原版的：

我已经使用来处理这种类型的图ggplot。这是一个简单的示例：

library(ggplot2)
set.seed(1618)
dat <- data.frame(teacher = sample(c('y','n'),10,replace=T),
                  student = sample(c('y','n'),10,replace=T))

ggplot(data = dat, aes(x = teacher, fill = student)) + geom_histogram()

您可能还会考虑

ggplot(data = dat, aes(x = teacher, fill = student)) + 
geom_histogram(alpha= .5, position = 'identity')

看起来像：

如果您无法分辨，第二张图只是“叠加”了条形图，而不是将它们堆叠在一起。

我不太擅长ggplot，但希望能有所帮助。