r - ggplot 和 pivot_longer 在多个因素上

Question

我想让我的数据框更长，所以我可以用它制作一个图。我有一个我想要排序的二分变量(性别)。我有四次曝光作为因素。

  DF <- data.frame(sex = rbinom(1000, 1, .5),
                                expo_1 = rbinom(1000, 1:4, .15),
                                expo_2 = rbinom(1000, 1:4, .25),
                                expo_3 = rbinom(1000, 1:4, .3),
                                expo_4 = rbinom(1000, 1:4, .45))                                                   
  DF$sex <- as.factor(sex)
  DF$expo_1 <- as.factor(expo_1)
  DF$expo_2 <- as.factor(expo_2)
  DF$expo_3 <- as.factor(expo_3)
  DF$expo_4 <- as.factor(expo_4)

这是我得到的。我正在努力计算世博会的每个级别。

DF %>%
  pivot_longer(cols = -sex, names_to = "expo") %>%
  group_by(sex, expo) 

我想要这样的东西:



非常感谢帮助，并提前致谢!

Answer 1

你就快到了 - 使用 facet 和 geom_bar对于 value 的原始计数作为填充美学。默认堆叠位置。

提示:使用 mutate_all为了更容易的类型转换

library(tidyverse)
DF <- data.frame(sex = rbinom(1000, 1, .5),
                 expo_1 = rbinom(1000, 1:4, .15),
                 expo_2 = rbinom(1000, 1:4, .25),
                 expo_3 = rbinom(1000, 1:4, .3),
                 expo_4 = rbinom(1000, 1:4, .45))   

DF <- DF %>% mutate_all(as.factor)

df_long <- DF %>%
  pivot_longer(cols = -sex, names_to = "expo")

ggplot(df_long) + geom_bar(aes(x = expo, fill = value)) +facet_grid(~sex)

创建于 2020-03-23 由 reprex package (v0.3.0)