R geom_point and ggmap, locations

Question

내 목표는지도를 만들고 그지도에 위치를 지정하는 것입니다. 이건 R geom_point and ggmap과 비슷하지만 맵을 얻을 수는 있지만 포인트를 표시하는 데 어려움을 겪고 있습니다.

다음은 현재 사용중인 코드입니다.

require(ggmap) 
library(ggmap) 
pp<- data.frame(lat=c(48.8535, 48.85418333, 48.86253333, 48.86373333, 48.86698333, 48.87033333,     48.87281667, 48.86993333, 48.87718333, 48.86251667, 
48.85313333, 48.89153333, 48.88231667, 48.84368333, 48.84221667, 48.84473333, 48.8335, 48.86961667, >48.84681667), lon=c(-122.5735333, -122.54085, -122.5142667, 
-122.4969667, -122.4857333, -122.4646, -122.44245, -122.4372167, -122.4128167, -122.4298,  -122.48205, -122.40875, -122.4423833, -122.55515, -122.5196667, -122.52105 
, -122.5086333, -122.4067667, -122.4358833)) 
tenmile <- get_map(location = c(lon = -122.486328, lat = 48.862813), 
    color = "color", 
    source = "google", 
    maptype = "roadmap", 
    zoom = 12) 
ggmap(tenmile, 
extent = "device", 
ylab = "Latitude", 
xlab = "Longitude") 
p<- ggmap(tenmile) + geom_point(data=pp, aes(x=lon, y=lat), color="red", size=30, alpha=0.5) 

Answer 1

나는 유일한 문제는 개체에 초기지도를 지정하지 않는다고 생각하는 것입니다. 이 시도 :

# Assign to variable 
tenmile.map <- ggmap(tenmile, 
     extent = "device", 
     ylab = "Latitude", 
     xlab = "Longitude") 
# Then add the points to the base map you created. 
p <- tenmile.map + geom_point(data=pp, aes(x=lon, y=lat), 
           color="red", size=30, alpha=0.5) 
p 

당신이 결합 할 수 원하는,하지만 당신은 여전히 ​​모든지도의 사양을해야 할 경우

all.in.one <- ggmap(tenmile, 
     extent = "device", 
     ylab = "Latitude", 
     xlab = "Longitude") + 
    geom_point(data=pp, aes(x=lon, y=lat), 
          color="red", size=30, alpha=0.5) 
all.in.one 

마지막 코멘트 : library()와 require() 사이의 아주 작은 차이가, 하지만 둘 다 패키지를로드하고 그 중 하나만 사용해야합니다. 관심이 있으시면 많은 세부 사항 in this question.