R：2組的ggplot barplot

> dput(df_male) 
structure(list(Question = structure(c(1L, 2L, 3L, 1L, 2L, 3L), .Label = c("Q1", 
"Q2", "Q3", "Q4", "Q5", "Q6", "Q7", "Q8"), class = "factor"), 
    Response = structure(c(1L, 1L, 1L, 2L, 2L, 2L), .Label = c("No", 
    "Yes"), class = "factor"), Proportion = c(0.569230769230769, 
    0.569230769230769, 0.492307692307692, 0.430769230769231, 
    0.430769230769231, 0.507692307692308)), .Names = c("Question", 
"Response", "Proportion"), row.names = c(1L, 2L, 3L, 9L, 10L, 
11L), class = "data.frame") 

> dput(df_female) 
structure(list(Question = structure(c(1L, 2L, 3L, 1L, 2L, 3L), .Label = c("Q1", 
"Q2", "Q3", "Q4", "Q5", "Q6", "Q7", "Q8"), class = "factor"), 
    Response = structure(c(1L, 1L, 1L, 2L, 2L, 2L), .Label = c("No", 
    "Yes"), class = "factor"), Proportion = c(0.603092783505155, 
    0.65979381443299, 0.54639175257732, 0.396907216494845, 0.34020618556701, 
    0.45360824742268)), .Names = c("Question", "Response", "Proportion" 
), row.names = c(1L, 2L, 3L, 9L, 10L, 11L), class = "data.frame")

對於3個問題，我有2個數據框（每個性別一個）的響應比例。R：2組的ggplot barplot

> df_male 
    Question Response Proportion 
1  Q1  No 0.5692308 
2  Q2  No 0.5692308 
3  Q3  No 0.4923077 
9  Q1  Yes 0.4307692 
10  Q2  Yes 0.4307692 
11  Q3  Yes 0.5076923 
> df_female 
    Question Response Proportion 
1  Q1  No 0.6030928 
2  Q2  No 0.6597938 
3  Q3  No 0.5463918 
9  Q1  Yes 0.3969072 
10  Q2  Yes 0.3402062 
11  Q3  Yes 0.4536082

我想要想象這個，所以我使用ggplot分段的barplot。

ggplot(df_male, aes(x = Question, y = Proportion)) + 
    geom_bar(aes(fill = Response), stat = "identity") + 
    theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.25)) + # Rotate tick mark labels 
    guides(fill = guide_legend(reverse = TRUE)) + ggtitle("Male") + theme(plot.title = element_text(hjust=0.5)) 

ggplot(df_female, aes(x = Question, y = Proportion)) + 
    geom_bar(aes(fill = Response), stat = "identity") + 
    theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.25)) + # Rotate tick mark labels 
    guides(fill = guide_legend(reverse = TRUE)) + ggtitle("Female") + theme(plot.title = element_text(hjust=0.5))

這是對2個地塊合併成僅有1個情節的方法嗎？即我想找到一種方法，在同一個地塊中爲兩個不同的羣體設置這三個問題的比例。

來源

2017-04-20 Adrian

如何將數據堆疊在一起並使用gender和question之間的interaction作爲您的x軸？

df <- rbind(cbind(df_male,gender="M"), cbind(df_female, gender = "F")) 

ggplot(df, aes(x = interaction(Question,gender), y = Proportion)) + 
    geom_bar(aes(fill = Response), stat = "identity") + 
    theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.25)) + # Rotate tick mark labels 
    guides(fill = guide_legend(reverse = TRUE)) + ggtitle("Male vs. Female") + theme(plot.title = element_text(hjust=0.5))

另外，我想一個更好的解決辦法是通過提問來使用facet_wrap()分組（或性別，如果你想）：

ggplot(df, aes(x =gender, y = Proportion)) + 
    geom_bar(aes(fill = Response), stat = "identity") + 
    theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.25)) + # Rotate tick mark labels 
    guides(fill = guide_legend(reverse = TRUE)) + ggtitle("Male vs. Female") + theme(plot.title = element_text(hjust=0.5)) + 
    facet_wrap(~Question)

來源

2017-04-20 17:56:54

結合您的數據帶有識別變量和方面：

library(tidyverse) 

bind_rows('male' = df_male, 'female' = df_female, .id = 'gender') %>% 
    ggplot(aes(x = Question, y = Proportion, fill = Response)) + 
    geom_col() + 
    facet_wrap(~gender)

編輯的外觀，只要你喜歡。如果您更喜歡垂直佈局，請在facet_wrap中設置ncol = 1。

來源

2017-04-20 18:02:38 alistaire

R：2組的ggplot barplot

回答

相關問題