如何在ggplot2的图形上获取多种类型的x轴标签？

Question

我有一个proportion作为我的y轴，还有sites作为我的初始x轴标签。我已经按纬度对站点进行了排序，但是用这种排序以及下面的另一个x轴称为Region可以更好地表示数据，每个区域大约有3个位置。

  

区域1：位置1、2、3

     

区域2：位置4、5、6

     

区域3：位置7、8、9

此外，我有三个物种，目前用facet_wrap(~Species)表示，但是能够将它们彼此相邻比较会更好。因此，理想情况下，我可以在每个位置将所有三个物种的箱形图彼此相邻，并在位置名称下方的x轴上包含它们。

我已经尝试过使用MASS软件包中的melt()函数，但是我无法弄清楚如何在x轴上添加任何其他级别，或者将每个物种的观察结果放在每个物种的旁边除了小面包裹外，其他每个地方都没有。

graph1 <- ggplot(dataframe, aes(x=Site, y=Proportion)) + 
  geom_point(aes(x=Site)) + 
  theme_classic() + 
  labs(x="Sites", y="Proportion") + 
  theme(axis.text.x = element_text(angle = 90, hjust = 1)) + 
  facet_wrap(~Species)