get_map 改变颜色和位置

get_map change colors and position

我的数据框是这样的:

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

我有下一个代码:

basec=read.csv("map2.csv")
map <- get_map(location = 'France', zoom = 6)
mapPoints <- ggmap(map) +  geom_point(aes(x = lon, y = lat, colour=autoroute), data = basec, alpha = 0.5, size=0.8) 

输出为:

如何根据路线值更改点的颜色?我正在尝试 scale_colour_manual 但出现以下错误:

Error: Continuous value supplied to discrete scale

如您所见,法国地图的顶部略有裁剪。我怎样才能解决这个问题?

要固定颜色值,请将变量更改为因子:

basec$autoroute <- as.factor(basec$autoroute)

另外,您可以自己将地图居中。使用不同的中心

cntr <- c(2.645, 47.45)
map <- get_googlemap(center=cntr, zoom=6)

如果这个中心仍然有一些国家/地区的作物,您可以自己继续调整中心。