R ggplot2-如何移动geom_地毯以避免覆盖点

我用ggplot2创建了一个基本散点图，并在y轴（左侧）上添加了一个带有geom_地毯的地毯，但是地毯隐藏了一些点。我尝试了position_dodge、position_jitterdodge和hjust，以移动地毯并使这些点可见，但没有达到预期效果。我不能把地毯移到情节的右边，因为它也会成为这里的隐藏点

有没有办法把地毯移到y轴的另一边，在绘图之外

下面是一些示例代码：

data("midwest", package = "ggplot2")
ggplot(midwest, aes(x=area, y=poptotal)) + geom_point(alpha=0.8)+ 
geom_rug(aes(x=NULL, y=poptotal), alpha=0.8)

---

我通过简单地扩展x轴限制，使用

scale_x_discrete(expand = c(0.01,0.01))

---

我通过简单地扩展x轴限制，使用

scale_x_discrete(expand = c(0.01,0.01))