R小叶，来自非可变数据的标记颜色

Question

你好，我是R的初学者。我想创建一个带有标记的地图，用来显示企业客户的位置。在我的数据中，我有23列关于客户的不同信息。

我有一个列"type.de.compte“，有2个非数值变量，分别是:眼镜师和眼科医生。

而我正在努力的是为我的标记有两种不同的颜色，红色如果顾客是配镜师，蓝色如果他是眼科医生。

这可能是一个愚蠢的问题，但我正在努力解决这个问题。

这是我目前所拥有的：

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

希望这能有所帮助！