R - Labels geom_point() - r

Question

All,
Please see below code to a R script. I am simply trying to populate a map of UK with list of stores (storeLocations) and customers (CustomerLocations).
STRTRADECODE is the column name within StoreLocations table which contains name of a particular store.
I am unable to output the labels. Please help.
Thanks in advance.
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

As I said in my commentary before, you have to add the lon and lat to geom_text, so ggplot knows, where to put the text.
Here is a working example (I included nudge_x, so the Text/Label is not directly on the point)
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"
)