Добавить пользовательскую легенду на карту - PullRequest
Новая
       8

Добавить пользовательскую легенду на карту

0 голосов
/ 28 сентября 2019

Я нанес на карту некоторые точки данных.Карта - король щедрости в Вашингтоне.Я нанес их на карту успешно.Мой набор данных состоит из столбца под названием цены.У меня есть проблема, чтобы установить их легенду с настроенными значениями.Вот что я попробовал до сих пор.

long <- c(47.5112,47.7210   ,47.3684, 48.3684)
lat <- c(-122.257, -122.319, -122.031, 123.031)
price <- c(287655,456355,662500,234563)

House <- data.frame(long, lat, price)
House <- transform(House, MapColor = cut(price, breaks = c(-Inf, 300000, 500000, 750000, Inf),
                                     labels = c("red", "blue", "green","black")))


col <- as.character(House$MapColor)

states <- map_data("state")

wa_df <- states %>%
  filter(region == "washington", subregion == 'king')



counties <- map_data("county")
wa_county <- counties %>%
  filter(region == "washington")

wa_base <-
  ggplot(data = wa_df,
         mapping = aes(x = long, y = lat, group = group)) +   geom_point(data = House,aes(x = long, y = lat),size = 0.5,inherit.aes = FALSE) +
  coord_fixed(1.3) +scale_color_manual(values=col)+
  geom_polygon(color = "black", fill = "gray")
#geom_point(data = House, mapping = aes(x = long, y = lat), color = "red")

wa_base + theme_nothing() +
  geom_polygon(data = wa_county, fill = NA, color = "black") +
  geom_polygon(color = "black", fill = NA)  # get the state border back on top

enter image description here

Мне нужно установить легенду со следующими значениями. 

legend_title <- c("price<300000", "300000<price<500000", "500000<price<700000", "price>700000")

legend_titleDF <- data.frame(legend_title)
...