如何在R中创建汇总的人口统计表

install.packages("tidyverse")  # 安装tidyverse包，其中包含了许多数据处理和可视化的工具
library(tidyverse)  # 加载tidyverse包

population_data <- data.frame(
  city = c("City A", "City B", "City C"),
  population = c(1000000, 1500000, 800000),
  median_age = c(35, 32, 40),
  average_income = c(50000, 60000, 45000)
)

summary_table <- population_data %>%
  summarise(
    total_population = sum(population),
    average_age = mean(median_age),
    average_income = mean(average_income)
  )

print(summary_table)