在geom_bar上添加两个 x 轴标签

问：

我一直在检查一些类似的案例，但一直找不到答案，所以请您对此提供帮助。这是我的数据框：

cities = c("city100", "city152", "city163", "city174", "city185", "city196") population = c(108934,157906,567124,127012,267345,123740) df <- data.frame(cities=cities, population=population)

我现在的情节是这样的

ggplot(df,aes(x= reorder(cities, -population), y=population, fill=cities)) +
    geom_text(aes(label = scales::comma(population)),hjust =0,size=2.5, angle = 90) +
    scale_y_continuous(labels = scales::label_number_si(), limits = c(0,740000))  +
    ggtitle("City Population") +
    theme(plot.title = element_text(color="blue", size=15, hjust =0.5, face="bold.italic")) +
    geom_bar(stat = "identity") +
    theme(axis.text.x = element_text(size=7, angle=90,hjust=0.95,vjust=0.2) ) +
    labs(x = "Cities", y ="Population", fill = "cities")

我得到了这张图。在此处输入图像描述

但是我想得到这样的东西，在这里输入图像描述

因为额外的 x 轴标题可以按人口提供有关城市位置的信息。

关于如何获取我需要的图表的一些建议。任何帮助都将非常有用