R 把南极洲固定在世界地图上？

我想用gpplot绘制一张简单的世界地图，但是当我这样做的时候，南极洲被切断了，因为坐标没有环绕，所以路径回到整个地图上，而不是从边缘出去。例如：

world_data <- map_data("world")

ggplot() + scale_y_continuous(limits=c(-90,90), expand=c(0,0)) +
scale_x_continuous(expand=c(0,0)) +
theme(axis.ticks=element_blank(), axis.title=element_blank(),
      axis.text=element_blank()) +
geom_polygon(data=world_data, mapping=aes(x=long, y=lat, group=group), fill='grey') 

library(maptools)
data(wrld_simpl)

ggplot() + 
  geom_polygon(data=wrld_simpl, 
             aes(x=long, y=lat, group=group), fill='grey20') + 
  coord_cartesian(xlim=c(-180,180), ylim=c(-90,90)) + 
  scale_x_continuous(breaks=seq(-180,180,20)) + 
  scale_y_continuous(breaks=seq(-90,90,10)) 

---

world\u data来自
maptools
软件包的
wrld\u siml
数据文件似乎有更可靠的地图数据，包括南极洲的数据，这些数据一直延伸到纬度-90度。例如：

world_data <- map_data("world")

ggplot() + scale_y_continuous(limits=c(-90,90), expand=c(0,0)) +
scale_x_continuous(expand=c(0,0)) +
theme(axis.ticks=element_blank(), axis.title=element_blank(),
      axis.text=element_blank()) +
geom_polygon(data=world_data, mapping=aes(x=long, y=lat, group=group), fill='grey') 

library(maptools)
data(wrld_simpl)

ggplot() + 
  geom_polygon(data=wrld_simpl, 
             aes(x=long, y=lat, group=group), fill='grey20') + 
  coord_cartesian(xlim=c(-180,180), ylim=c(-90,90)) + 
  scale_x_continuous(breaks=seq(-180,180,20)) + 
  scale_y_continuous(breaks=seq(-90,90,10)) 

Hi@eipi10:设置
coord\u map（）
时，您的代码工作不正常。南极洲看起来很奇怪

ggplot（）+
几何多边形（数据=加固（wrld_siml），
aes（x=long，y=lat，group=group），fill='grey20'）+
坐标映射（xlim=c（-180180），ylim=c（-9090））+
比例x连续（中断=顺序（-180,180,20））+
连续刻度（断开=顺序（-90,90,10））


实际上，我发现R包中的大多数内置世界地图，如
mapdata
、
maptools
和
maps
都不能正确使用
coord_map（）
。如果有人能弄明白，我们将不胜感激。
您认为应该如何绘制？