r - Rのグラフに多数のカテゴリ変数をプロットするにはどうすればよいですか?

Question

pay1、pay2、...、pay10 のそれぞれの値が「はい」または「いいえ」のいずれかである、約 10 個のカテゴリ変数があります。これらの各変数の数をグラフにプロットしたいと思います。たとえば、チャートの bar1 は、「はい」と「いいえ」の間で分割された観察の総数を反映する変数「pay1」を参照する必要があります (「いいえ」の上に「はい」またはその逆)。チャート上の 10 個の変数すべて。各バーの「はい」と「いいえ」のパーセンテージを表示できれば、なおさらです。誰かがこれを手伝ってくれるでしょうか？

ティア。

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