调整ggmap中ggplot的灰色背景

Question

我有以下脚本来构造一个 ggmap，以及一个多边形和一些点。该示例不可重现，但这不是问题，因为我面临的问题与两个轴的限制有关。代码如下：

ggMFI <- CY_map +   
  geom_point( data = coords_CY, aes(x = lon, y = lat), col = "black", size =  1.5   )       +
  geom_sf(data = StudyArea_shp, colour = "white", inherit.aes = FALSE, show.legend = FALSE) +
  geom_point( data = df_PREC,   aes(x = lon, y = lat, col = dMFI),    size =  2.5   )       +
  #xlab("Longitude (°E)") + ylab("Latitude (°S)" )                                           +
  scale_x_continuous(breaks = c(32.5, 33, 33.5, 34.0)) +
  scale_y_continuous(breaks = c(34.6, 34.8, 35.0, 35.2)) +
  theme(axis.text.x  = element_text(size = 30),axis.text.y  = element_text(size = 30) )     +
  theme(axis.title.x = element_blank(),axis.title.y = element_blank() )         +
  theme(legend.title=element_text(size=20),legend.text=element_text(size=20), 
       legend.position = c(0.94, 0.30))  +   
  scale_color_gradientn(colours = c('#5749a0', '#0f7ab0', '#00bbb1',
                                    '#bef0b0', '#fdf4af', '#f9b64b',
                                    '#ec840e', '#ca443d', '#a51a49'))

生成以下图：

如果我删除scale_x_continuous，地图和灰色背景重合（看不到灰色背景）

但我无法控制轴缩放。如何隐藏灰色背景并使地图到达轴？ PS：我在stackoverflow中检查了另一个相关问题， 扩展 ggmap 输出并消除灰色 但它并没有回答与我完全相同的问题（问题是存在异常点）。

Answer 1

包括线路

+ coord_sf(expand = FALSE)

应该可以解决您的问题，并且仍然可以让您根据需要缩放轴。