ggplot2似乎没有正确地居中？

Question

第一个帖子在这里。

我正在研究一个可视化过程，该过程试图比较同一个人的过去和现在的测量结果。我已经使用mtcars数据框来说明类似的想法。考虑到mpg2可能是下一年模型的MPG，我使用了mpg变量的随机增加来创建它。

library(ggplot2)

mtcars$mpg2 <- mtcars$mpg + sample(c(0,1),length(mtcars$mpg), replace = T)

ggplot(data = mtcars) +
 geom_point(aes(x = mpg, y =  rownames(mtcars) ), col = 'red', size = 2) + 
 geom_point(aes(x = mpg2,y =  rownames(mtcars)), col = 'darkgreen', size = 1)  

对于所有意图和目的来说看起来都不错，但确实让我感到困扰的是，微小的点（当前mpg）没有直接集中在较大的点（去年的mpg）上。有没有人遇到这个问题/找到了有效的解决方法？