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)) 

希望这有助于！