由ggplot2重叠两个图表

Question

我使用以下脚本在R：

中通过ggplot2创建两个图表

library(ggplot2)
coin <- read.csv("D:/RStudio/data/coin_test.csv", header = TRUE)
ggplot(data.frame (x=coin$Order, y=coin$Sn), aes(x=x, ymax=y, ymin=0))+geom_linerange()+xlab("order")
ggplot(data.frame (x=coin$Order, y=coin$Pb), aes(x=x, ymax=y, ymin=0))+geom_linerange(xlab="order",col="red")+xlab("order")

这两个图看起来像这些，每一行代表一个具有唯一顺序的值：

我想重叠这两个图，以便它们以相同的顺序共享相同的x和y轴。任何人都可以启发我如何做到这一点？