지도에 텍스트 상자 추가

Question

나는 ggmap을 사용하여 중간 지점 경로를 계획하고 있습니다.

각 웨이 포인트를 나타내는 이름의 벡터를 포함하는 텍스트 상자를 왼쪽 상단의 맵에 추가해야합니다.

키와 같은 전설은 없으며 텍스트 만 있습니다. 이 작업을 수행하는 가장 좋은 방법은 무엇입니까? 특수 효과와 전설에 대해 읽었지만 이것이 최선의 방법인지 확신하지 못했습니다.

library(qmap) 

names<-c("Name1","Name2", "Name3") 

ggm <- qmap(location=map.centre,zoom = 15, maptype = 'road') 

    ggm + 
    geom_path(data=coords,aes(x=startLon,y=startLat),color="blue",size=2)+ 
    geom_point(data=way.points,aes(x=as.numeric(X2),y=as.numeric(X1)), 
       size=10,color="yellow")+ 
    geom_text(data=way.points, 
       aes(x=as.numeric(X2),y=as.numeric(X1), label=seq_along(X1))) 

Answer 1

이 http://bcb.dfci.harvard.edu/~aedin/courses/R/CDC/maps.html에서이지만 모양, 색상 및 텍스트를 이용하여 우측 상단에 적절한 범례를 도시한다. 데이터를 제공 할 수 있다면 이는 사용자의 특정 요구에 맞게 조정될 수 있습니다.

library(ggmap) # for crime data for the example 
library(qmap) 

data(crime) 

violent_crimes <- subset(crime, offense != "auto theft" & offense != 
    "theft" & offense != "burglary") 

# rank violent crimes 
violent_crimes$offense <- factor(violent_crimes$offense, levels = c("robbery", 
    "aggravated assault", "rape", "murder")) 

# restrict to downtown 
violent_crimes <- subset(violent_crimes, -95.39681 <= lon & lon <= 
    -95.34188 & 29.73631 <= lat & lat <= 29.784) 

HoustonMap <- qmap('houston', zoom = 14,color = 'bw', legend = 'topright') 
HoustonMap + geom_point(aes(x = lon, y = lat, 
          size = offense,colour = offense), 
          data = violent_crimes)