绘制地图时，scale_gradient不会显示中断

Question

我想有一个非常简单的问题。如果我绘制这样的散点图：

 data <- data.frame(lon=runif(100)*3+10, lat=runif(100)*5+42, value=rnorm(100)*100)
 ggplot() + geom_point(aes(x=lon, y=lat,  color=value), data=data)

正确显示图例并指定中断。

但是当我使用地图作为背景时：

 SHmap <- qmap(c(lon=mean(data[,'lon'], na.rm=TRUE), lat=mean(data$lat, na.rm=TRUE)), zoom=7)
 SHmap <- SHmap + geom_point(aes(x=lon, y=lat,  color=value), data=data)
 SHmap

我做错了什么或是出于这种行为？

Answer 1

尝试将extent="panel"添加到qmap来电。默认值extent="device"会将theme_nothing放到绘图上，从而删除刻度标签。

SHmap <- qmap(c(lon=mean(data[,'lon'], na.rm=TRUE), lat=mean(data$lat, na.rm=TRUE)), 
              zoom=7, extent="panel")
SHmap <- SHmap + geom_point(aes(x=lon, y=lat,  color=value), data=data)
SHmap

或者只是覆盖控制图例的主题部分，以便它们显示出来。