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

我有下一个代码：

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

正如你所看到的，在法国地图的顶部出现了略微削减。我怎样才能解决这个问题？

Answer 1

要修复颜色值，请将变量更改为系数：

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

此外，您可以自己居中地图。使用不同的中心

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

你可以继续自己调整中心，如果这个中心仍然占据了一个国家。