R小册子,来自非可变数据的标记颜色
问题描述:
您好,我是一名R初学者。我想创建一个带有标记的地图,显示企业客户的位置。在我的数据中,我有23列与客户不同的信息。R小册子,来自非可变数据的标记颜色
我有一个列“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。
答
您可以事先创建以下名为向量:
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))
希望这有助于!
谢谢你,工作完美! – LeBaron