Fiji(斐济)这个国家正好跨越东经180°(西经180°),如图,我想要图的中间部分,目测经度范围160到-160,怎么做?
fiji
我的代码如下

library(colormap)
library(ggplot2)
library(maps)
library(mapdata)
FijiMap <- map_data("worldHires", region = "Fiji" ) 
gg <- ggplot(FijiMap, aes( x = long, y = lat)) + 
		 geom_map( map = FijiMap, aes(map_id = region),
			color = "gray60",show.legend = FALSE, size =.2 ) +
		 geom_point(data = quakes, aes(x = long, y =  lat,colour = mag),pch = 16) +
		 expand_limits(x = FijiMap$long, y = FijiMap$lat ) +
		 scale_y_continuous(breaks=(-6:6)*15) +
		 scale_x_continuous(breaks=(-6:6)*30) +
		 coord_map("ortho", orientation = c(-10,180,0)) +
		 scale_color_colormap(colormap = colormaps$viridis, reverse = TRUE) +
		 labs(colour = " Richter \n Magnitude") +
		 xlab("Long (°)") +
		 ylab("Lat (°)") 
print(gg)
library(gridExtra)
gleft <- gg + coord_map(xlim = c(160, 180)) 
gright <- gg + coord_map(xlim = c(-180, -160)) 
grid.arrange(gleft, gright, ncol=2)

grid
这样两块拼起来,同时去掉左边的 legend ,右边 ylabyaxis,再统一 xlab,重合点标记为180°(-180°),这后续一连串动作,怎么搞?求教

4 个月 后
library(maps)
library(mapdata)
library(ggplot2)
FijiMap <- map_data("worldHires", region = "Fiji" ) 

library(sysfonts)
font_add( 'SourceHanSerifCN-Bold', regular = 'C:/Windows/fonts/SourceHanSerifCN-Bold.otf') 
font_add( 'SourceHanSerifCN-Regular', regular = 'C:/Windows/fonts/SourceHanSerifCN-Regular.otf')

cairo_pdf(filename = 'Fiji_earthquake.pdf',width = 8,height = 6)
ggplot(FijiMap, aes( x = long, y = lat)) + 
  geom_map( map = FijiMap, aes(map_id = region),size =.2 ) +
  geom_point(data = quakes, aes(x = long, y =  lat,colour = mag),pch = 16) +
  xlim(160, 195) + 	 
  scale_colour_distiller(palette = "Spectral") +
  scale_y_continuous(breaks=(-18:18)*5) +
  coord_map("ortho", orientation = c(-10,180,0)) +
  labs(colour = "震级",x = "经度",y = "纬度",title = '斐济地震带') +
  theme_minimal() +
  theme(title = element_text( family = "SourceHanSerifCN-Bold" ), 
        axis.title = element_text( family = "SourceHanSerifCN-Regular" ),
        legend.title = element_text( family = "SourceHanSerifCN-Bold" ),
        legend.position = c(1,0), legend.justification = c(1,0))
dev.off()

fiji_earthquake