Как можно нарисовать карту по тычинкам - PullRequest
Новая
       40

Как можно нарисовать карту по тычинкам

0 голосов
/ 23 апреля 2019

Я хочу нарисовать карту, подобную картинке без названия, и показать центр всего штата цветным кругом. Есть API Google Map, который можно использовать в R. Но, похоже, его больше нельзя использовать бесплатно. Как нарисовать эту картинку из библиотеки Stamn Maps в R? Если есть хорошее руководство по Stamn Maps, я буду признателен за любую помощь.

enter image description here

спасибо за ваши ответы Я нахожу одно из решений, которое показывает карту в r Stamn Maps 

d <- data.frame(lat = state.center$y,
                lon = state.center$x)
#-128.5, 27.5, -69, 49
US <- get_stamenmap(bbox = c(left = -128.5, bottom = 27.5, right =
                               -68, top = 50) ,zoom = 4, maptype = c("terrain",
                                                                                 "terrain-background", "terrain-labels", "terrain-lines", "toner",
                                                                                 "toner-2010", "toner-2011", "toner-background", "toner-hybrid",
                                                                                 "toner-labels", "toner-lines", "toner-lite", "watercolor"),
                    crop = TRUE, messaging = FALSE, urlonly = FALSE,
                    color = c("color", "bw"), force = FALSE, where = tempdir())


p <- ggmap(US, base_layer = ggplot(data = d)) +
  geom_point(aes(x = lon, y = lat), color = "blue", size = 2, alpha = 0.5)
p

1 Ответ

1 голос
/ 23 апреля 2019

Минимальный пример начала вашего путешествия: 

set.seed(1702)
points <- data.frame(lon = rnorm(10, -95.4, 0.1),
                     lat = rnorm(10, 29.7, 0.1))

# get_stamenmap() defaults to the map of Houston, TX if there 
# is no boundary box defined in the form of:
# c(lon_min, lat_min, lon_max, lat_max)
# For more information see ?get_stamenmap
ggmap(get_stamenmap()) +
    geom_point(data = points,
               aes(lon, lat), 
               color = "red")

1

...