R小冊子，來自非可變數據的標記顏色

Question

您好，我是一名R初學者。我想創建一個帶有標記的地圖，顯示企業客戶的位置。在我的數據中，我有23列與客戶不同的信息。

我有一個列「type.de.compte」與2非數值變量是：配鏡師和眼科醫生。

我正在努力的是我的標記有2種不同的顏色，如果顧客是眼鏡師，則爲紅色，如果他是眼科醫生，則爲藍色。

可能是一個愚蠢的問題，但I M與掙扎..

這裏是我現在：提前

icons1 <- awesomeIcons(
    icon = 'ion-ios-body', 
    iconColor = 'black', 
    library = 'ion', 
    markerColor = "blue") 

leaflet(data = origAddress) %>% addTiles() %>% 
    addAwesomeMarkers(~long,~lat, 
       icon=icons1, 
       popup=paste(origAddress$Nom.du.compte, 
          "Ville :"origAddress$Ville, 
          "Téléphone:"origAddress$Téléphone.principal)) 

THX。

Answer 1

您可以事先創建以下名爲向量：

customer_colors = c("optician"='red', 
        "opthalmologist"='blue') 

# optionally, for any exceptions: 
colors[is.na(colors)]="white" 

然後你可以用下面的代碼，假設你的數據幀被稱爲df：

colors = customer_colors[df$type.de.compte] 

icons1 <- awesomeIcons(
    icon = 'ion-ios-body', 
    iconColor = 'black', 
    library = 'ion', 
    markerColor = unname(colors)) 

希望這有助於！