R - обозначает geom_point()

Question

Все,

Пожалуйста, смотрите ниже код для сценария R. Я просто пытаюсь заполнить карту Великобритании списком магазинов (storeLocations) и клиентов (CustomerLocations).

STRTRADECODE - это имя столбца в таблице StoreLocations, которое содержит имя определенного магазина.

Я не могу вывести ярлыки. Пожалуйста помоги.

Заранее спасибо.

library(RgoogleMaps)
library(maps)
library(ggmap) 
library(ggplot)

UKMap <- qmap("United Kingdom", zoom = 6.0)

storeOverlay <- geom_point(aes(x = longitude, y = latitude),
                             data = StoreLocations,  colour = "red") 

storeOverlay <- storeOverlay + geom_text(data= StoreLocations, aes(label=STRTRADECODE))

CustomerOverlay <- geom_point(aes(x = longitude, y = latitude),
                           data = CustomerLocations,  colour = "green")

UKMap + CustomerOverlay + storeOverlay

Answer 1

Как я уже говорил в своем комментарии ранее, вы должны добавить lon и lat в geom_text, чтобы ggplot знал, куда поместить текст.

Вот рабочий пример (я включил nudge_x, поэтому текст / метка не имеют прямого отношения к делу)

library(RgoogleMaps)
library(maps)
library(ggmap) 
library(ggplot)

STRTRADECODE <- c("London","Sheffield","Glasgow")

StoreLocations <- as.data.frame(STRTRADECODE,stringsAsFactors=F)

StoreLocations %>%
  mutate_geocode(STRTRADECODE) %>%
  rename(longitude = lon,latitude=lat) -> StoreLocations

CustomerLocations <- StoreLocations
CustomerLocations$longitude <- CustomerLocations$longitude - 1

UKMap <- qmap("United Kingdom", zoom = 6.0)

UKMap +
  geom_point(mapping=aes(x = longitude, 
                         y = latitude),
            data = StoreLocations,  
            colour = "red"
            ) +
  geom_text( 
            mapping=aes(x = longitude, 
                        y = latitude,
                        label = STRTRADECODE
                        ),
            data= StoreLocations,
            nudge_x = 0.8
            ) +
 geom_point(aes(x = longitude, 
                y = latitude
                ),
            data = CustomerLocations, 
            colour = "green"
            )