ggplot2中的简单人口金字塔

Question

我想用ggplot2创建一个人口金字塔。这个问题是问before的，但我认为解决方法必须简单得多。

test <- (data.frame(v=rnorm(1000), g=c('M','F')))
require(ggplot2)
ggplot(data=test, aes(x=v)) + 
    geom_histogram() + 
    coord_flip() + 
    facet_grid(. ~ g)

生成此图像。在我看来，创建人口金字塔所缺少的唯一步骤是反转第一个面的x轴，使其从50变为0，同时保持第二个面不变。有人能帮忙吗？

Answer 1

一般金字塔密码

1. 避免在水平轴上设置标签打断
2. 只使用一个geom_*()而不使用子设置数据，如果要在方面图中创建多个棱锥体，这尤其有用。
3. 使用geom_col()而不是geom_bar()，后者具有更好的默认值stat
4. 具有相等的男性和女性水平轴；limits = max(d$pop) * c(-1,1)，以便在x轴上比较性别和相等标签。

正在创建数据。。。

set.seed(100)
a <- seq(from = 0, to = 90, by = 10)
d <- data.frame(age = paste(a, a + 10, sep = "-"),
                sex = rep(x = c("Female", "Male"), each = 10),
                pop = sample(x = 1:100, size = 20))
head(d)
#     age    sex pop
# 1  0-10 Female  74
# 2 10-20 Female  89
# 3 20-30 Female  78
# 4 30-40 Female  23
# 5 40-50 Female  86
# 6 50-60 Female  70

绘图代码。。。

library(ggplot2)
ggplot(data = d, 
       mapping = aes(x = age, y = ifelse(test = sex == "Male", yes = -pop, no = pop), 
                     fill = sex)) +
    geom_col() +
    coord_flip() +
    scale_y_continuous(labels = abs, limits = max(d$pop) * c(-1,1)) +
    labs(y = "Population")

注意，如果你的数据是在个人层面上的，而不是按年龄性别组总结的，那么答案here也很一般。