繪製地圖時不會顯示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 

或者只是覆蓋，使它們顯示並控制的傳說爲主題的那些部分。