使用GGPlot在R中创建人口金字塔图

library(ggplot2)

# 导入数据
population_data <- read.csv("population_data.csv")

# 数据处理
population_data$age_group <- cut(population_data$age, breaks = c(0, 18, 30, 40, 50, 60, Inf), labels = c("0-18", "19-30", "31-40", "41-50", "51-60", "60+"))
population_data$gender <- factor(population_data$gender, levels = c("Male", "Female"))

# 创建图层
p <- ggplot(population_data, aes(x = age_group, y = population, fill = gender))

# 添加几何对象
p <- p + geom_bar(data = subset(population_data, gender == "Male"), stat = "identity", position = "identity")
p <- p + geom_bar(data = subset(population_data, gender == "Female"), stat = "identity", position = "identity", width = -1)

# 调整坐标轴
p <- p + scale_y_continuous(labels = abs)

# 添加标签和标题
p <- p + labs(x = "Age Group", y = "Population", title = "Population Pyramid")

# 显示图表
print(p)