添加圖例到ggplot地圖形狀

Question

我已經使用兩層geom_point，具有形狀24和默認值。我想表示在圖例中的形狀和相應的描述。任何一個可以指導我如何去做。

total_map<-ggmap(Map)+ 
geom_point(data = crime_poss_drugs,shape=24,size=6, 
aes(x = lon, y = lat,colour=factor(drug_cases)))+ 
geom_point(data = crime_prod_drugs,aes(x = lon, y = lat,colour=factor(drug_cases))) 

在此先感謝。

Answer 1

基本上，你可以把shape=...到呼叫aes(...)。

library(ggplot2) 
# make up some data 
set.seed(1) 
crime_poss_drugs <- data.frame(x=1:10, y=rnorm(10,1), drug_cases=rep(1:2,each=5)) 
crime_prod_drugs <- data.frame(x=1:10, y=rnorm(10,3), drug_cases=rep(1:2,each=5)) 
# plot with different shape for each dataset 
ggplot() + 
    geom_point(data=crime_poss_drugs, 
      aes(x, y, color=factor(drug_cases), shape="POSS"))+ 
    geom_point(data=crime_prod_drugs, 
      aes(x, y, color=factor(drug_cases), shape="PROD"),size=3)+ 
    scale_shape_manual("Crime",values=c(POSS=24,PROD=16))+ 
    scale_color_discrete("Drug Cases")