Rリーフレット、非可変データのマーカーの色

Question

こんにちは私は初心者です。私はエンタプライズの顧客のポジションを示すマーカーを使って地図を作成したいと思います。私のデータには、私は23の列に異なった情報を顧客に持っています。

私は2つの非数値変数を持つ "type.de.compte"という列を持っています：眼科医と眼科医。

私は悩んでいるのは私のマーカーに2色の色を付けることです.custumerが眼鏡であれば赤、眼科医であれば青です。

は愚かな質問かもしれないが、私はそれで苦労メートル..ここ

は私が今のところ持っているものです。事前に

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

事前に以下の名前のベクトルを作成することができます。そして、あなたはあなたのデータフレームがdf呼ばれると仮定すると、次のコードを使用することができます

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

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

を：

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

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

は、この情報がお役に立てば幸い！