加强和整洁（来自扫帚）导致多边形不正确

Question

我正在尝试使用莱索托地图，并在上面绘制各种其他数据。我拉出的shapefile是来自此链接的ESRI文件： http://www.mapmaker.com/maplibrary/library/stacks/Africa/Lesotho/index.htm

当我通过readOGR导入shapefile，然后使用基本绘图功能对其进行打印时，多边形处于适当的方向。一旦我使用强化或整洁，它们便不再处于正确的方向。我已包含以下代码。请注意，我仅在下面添加了整洁的代码，但也尝试过对同一问题进行强化。

我尝试指定proj4string（在此形状文件中可以使用），并尝试了spTransform，但是当我用ggplot进行绘制时，没有一个具有正确的区域方向。我不确定要包括哪些其他信息可能会有所帮助...我在R 3.4.4中。任何和所有帮助表示赞赏！

s1 <- readOGR(".","LSO_adm1")
summary(s1)
plot(s1) #This is actually what the districts in Lesotho look like
s2 <- tidy(s1)
ggplot()+
  geom_polygon(data = s2, aes(x=lat, y=long, group=group), col="black") 
#This is then some sort of weird alternative Lesotho