R get_map Пользовательская карта

Question

Мой фрейм данных выглядит так:

Sho        lat     lon       autoroute
1000001 46.20114 5.19791         0
1000002 46.21842 5.22767         1
1000004 46.18836 5.24447         0
1000006 46.20754 5.23758         1
1000007 46.20105 5.24891         0

Я запускаю следующий код для построения графиков координат:

library(ggmap)
basec$autoroute <- as.factor(basec$autoroute)
cntr <- c(1.99, 46.95)
map <- get_googlemap(location = 'France',center=cntr, zoom = 6, maptype ="roadmap" )
mapPoints <- ggmap(map) +
             geom_point(aes(x = lon, y = lat, color = autoroute), data = basec,
                        size = 1, alpha = 0.5) + 
             scale_colour_manual(values = c("#00ffff","red")) +
             theme(legend.position = "none") +
             labs(x = "Longitude", y = "Latitude")
mapPoints

И я имею:

Есть способ показать только Францию? а есть способ устранить зеленые части? Мне просто нужно показать главные дороги Франции и точки на карте.