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知道，在那裏把文本。

這裏是一個工作示例（I包括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" 
      )