모양이있는 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")