R dépliant, couleur des marqueurs à partir de données non variables

Question

Bonjour je suis un débutant avec R. Je veux créer une carte avec des marqueurs qui montrent la position des clients d'une entreprise. Dans mes données j'ai 23 colonnes avec différentes informations sur les clients.

J'ai une colonne "type.de.compte" avec 2 variables non numériques qui sont: opticien et ophtalmologue.

Et ce que je lutte avec est d'avoir 2 couleurs différentes pour mes marqueurs, rouge si le client est un opticien et bleu s'il est un ophtalmologiste.

est peut-être une question stupide, mais je ne suis pas aux prises avec qui ..

Voici ce que j'ai pour l'instant:

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 à l'avance.

Answer 1

Vous pouvez créer le vecteur suivant nommé à l'avance:

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

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

Ensuite, vous pouvez utiliser le code suivant, en supposant que votre dataframe est appelé df:

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

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

Hope this helps!