Перекрывающиеся метки ggmap

У меня есть карта Google и список координат с текстовой меткой. Когда я просматриваю это, метки перекрываются и, таким образом, становятся нечитаемыми:

library(ggmap)
WPmap <- qmap(c(lon=4.80324, lat=52.40738), zoom = 12,  source = "google")

таблица kaart_rtw:

              Naam      lat     lon
1 Nieuw-Zeelandweg 52.40466 4.80214
2      Portsmuiden 52.39014 4.78554
3     Westhavenweg 52.41602 4.82282
4     Westhavenweg 52.41702 4.82282
5     Westhavenweg 52.41802 4.82282
6         Deccaweg 52.40196 4.83910
7     Coenhavenweg 52.40364 4.86195 

AmsterdamMap + geom_text(data = kaart_rtw, aes(label = kaart_rtw$Naam, x = X, y = Y))

Есть ли способ остановить перекрытие?


r ggplot2 ggmap
person user3346225    schedule 24.02.2014    source источник
comment
Добро пожаловать в StackOverflow! Прочтите, как предоставить воспроизводимый пример, включая данные и код, а затем соответствующим образом обновите свой вопрос.   -  person Thomas    schedule 24.02.2014
comment
Думаю, я просто немного поправлю координаты   -  person user3346225    schedule 25.02.2014

Ответы (2)


arrow_upward
3
arrow_downward

Корректировка координат может быть простым решением, но только когда у вас мало наблюдений. Пример:

df <- read.table(text="Naam lat lon
Nieuw-Zeelandweg 52.40466 4.80214
Portsmuiden 52.39014 4.78554
Westhavenweg 52.41602 4.82282
Westhavenweg 52.41702 4.82282
Westhavenweg 52.41802 4.82282
Deccaweg 52.40196 4.83910
Coenhavenweg 52.40364 4.86195", header = TRUE, strip.white = TRUE)

require(ggmap)
require(ggplot2)

roads <- get_map(location = c(lon = 4.82824, lat = 52.40738), zoom = 13, 
                 maptype = "roadmap", scale = 2)

ggmap(roads) +
  geom_point(data = df, aes(x=lon, y=lat, fill="red", alpha=0.5, label = df$Naam),
             size=4, shape=21) +
  geom_text(data = df, aes(x = lon, y = lat, label = Naam), 
            size = 3, vjust = 0, hjust = -0.1) +
  guides(fill = FALSE, alpha = FALSE)

Результат: введите описание изображения здесь

person Jaap    schedule 26.02.2014

arrow_upward
6
arrow_downward

Вы можете попробовать ggrepel, чтобы разместить свои ярлыки без перекрытия:

library(ggmap)
install.packages("devtools")
devtools::install_github("slowkow/ggrepel")
library(ggrepel)

df <- read.table(text="Naam lat lon
Nieuw-Zeelandweg 52.40466 4.80214
Portsmuiden 52.39014 4.78554
Westhavenweg 52.41602 4.82282
Westhavenweg 52.41702 4.82282
Westhavenweg 52.41802 4.82282
Deccaweg 52.40196 4.83910
Coenhavenweg 52.40364 4.86195", header = TRUE, strip.white = TRUE)

roads <- get_map(location = c(lon = 4.82824, lat = 52.40738), zoom = 13, 
                 maptype = "roadmap", scale = 2)

ggmap(roads) +
  geom_point(
    data = df,
    aes(x = lon, y = lat),
    alpha = 0.5, fill = "red", size = 4, shape = 21
  ) +
  geom_label_repel(
    data = df,
    aes(x = lon, y = lat, label = df$Naam),
    box.padding = unit(2, "lines")
  ) +
  guides(fill = FALSE, alpha = FALSE)

график ggmap с метками ggrepel

person Kamil Slowikowski    schedule 04.02.2016
comment
ggrepel теперь находится в CRAN, поэтому его можно установить прямо оттуда - person Sam Firke; 19.02.2016