如何在R中的图形上绘制多个分类变量？

Question

我有大约10个分类变量 - pay1，pay2，...，pay10，每个变量的值为“是”或“否”。 我想在图表上绘制每个变量的计数。 例如 - 图表上的bar1应该引用变量'pay1'，反映在“是”和“否”之间划分的观察总数（“否”之上的“是”，反之亦然） 该方案应与图表上的所有10个变量一致。如果我能够为每个条形显示“是”和“否”的百分比，那就更好了。 有人能帮忙解决这个问题吗？

TIA。

Answer 1

编辑喜欢这个吗？

set.seed(1) # make reproducible
### 3x variables, 5x observations
df1 <- data.frame(x1=sample(c("yes","no"),5, replace=TRUE),
                  x2=sample(c("yes","no"),5, replace=TRUE),
                  x3=sample(c("yes","no"),5, replace=TRUE)
                  )
library(reshape2)
### convert to 'long form'
m1 <- melt(df1, measure.vars=c("x1","x2","x3"))
### now use facets to give one plot per variable
library(ggplot2)
qplot(variable, data=m1, fill=value) + facet_wrap( facets= ~variable, scale="free_x")

，并提供：

或者，如果你想要'是/否'并排，这对我来说更好看：

qplot(value, data=m1, fill=value) + facet_wrap( facets= ~variable, scale="free_x")

Answer 2

使用其他答案中生成的数据框，这个怎么样？我认为你必须非常具体地说明你希望你的x轴结构在这里得到一个有用的答案。

set.seed(1) # make reproducible
### 3x variables, 5x observations
df1 <- data.frame(x1=sample(c("yes","no"),5, replace=TRUE),
              x2=sample(c("yes","no"),5, replace=TRUE),
              x3=sample(c("yes","no"),5, replace=TRUE)
              )
library(reshape2)
m1 <- melt(df1, measure.vars=c("x1","x2","x3"))
m1[,"varval"]<-paste(m1$variable, m1$value, sep="-")

library(ggplot2)
# All counts now have a common x-axis:
varp<-ggplot(m1, aes(varv, fill=value))+geom_bar(stat="bin")
varp