3

必要なプロットを作成しましたが、バーをスライドさせて、中央のニュートラル カテゴリが各サブプロットのゼロ (x=0) に均等にまたがるようにしたいと考えています。何か案は？おそらく、ここで正しい幾何構造を使用していないのでしょうか?

library(ggplot2)
survey_data <- data.frame(gender=rep(c("Unreported","Female","Male"),7),
                      feel_job=c(1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6, 7, 7, 7),
                      Freq=c(0, 0, 0, 1, 3, 5, 0, 4, 4, 0, 7, 15, 3, 28, 35, 3, 35, 80, 1, 52, 108))
p <- ggplot(survey_data, aes(gender)) + 
  geom_bar(aes(y = Freq, fill = factor(feel_job)), stat = "identity") +
  coord_flip()
p

どうやら、これらのタイプのプロットは、一部のサークルでは「発散積み上げ棒グラフ」とも呼ばれています。

4

2 に答える 2

0

ライブラリのlikert関数を使用してそれを行うことができます：HH

library(HH)
survey_data <- data.frame(gender=rep(c("Unreported","Female","Male"),7),
                  feel_job=c(1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6, 7, 7, 7),
                  Freq=c(0, 0, 0, 1, 3, 5, 0, 4, 4, 0, 7, 15, 3, 28, 35, 3, 35, 80, 1, 52, 108))
likert(Freq ~ gender + feel_job, survey_data)

これがまさにあなたが目指しているものかどうかはわかりませんが、これ（または非常に類似したもの）が機能するように見えます。

于 2013-07-11T21:24:33.763 に答える