R 闪亮传单地图上的自定义标记

我需要根据它们的类型在有光泽的传单上映射点-总共有四种类型，具有不同颜色的相同标记

我检查了这个：

这看起来像我的回答，但我无法修复：(

答案中共享了此代码

library(dplyr)
library(leaflet)

mutate(quakes, group = cut(mag, breaks = c(0, 5, 6, Inf), labels = c("blue", 
"green", "orange"))) -> mydf

### I edit this png file and created my own marker.
### https://raw.githubusercontent.com/lvoogdt/Leaflet.awesome-
markers/master/dist/images/markers-soft.png
quakeIcons <- iconList(blue = makeIcon("/Users/jazzurro/Documents/Stack 
Overflow/blue.png", iconWidth = 24, iconHeight =32),
                   green = makeIcon("/Users/jazzurro/Documents/Stack 
Overflow/green.png", iconWidth = 24, iconHeight =32),
                   orange = makeIcon("/Users/jazzurro/Documents/Stack 
Overflow/orange.png", iconWidth = 24, iconHeight =32))


leaflet(data = mydf[1:100,]) %>% 
addTiles() %>%
addMarkers(icon = ~quakeIcons[group])

库（dplyr）
图书馆（单张）
突变（地震，组=切割（磁，断裂=c（0，5，6，Inf），标签=c（“蓝色”），
“绿色”、“橙色”））->mydf
###我编辑这个png文件并创建了自己的标记。
### https://raw.githubusercontent.com/lvoogdt/Leaflet.awesome-
markers/master/dist/images/markers-soft.png
quakeIcons%
addTiles（）%>%
addMarkers（图标=~quakeIcons[group]）

我基本上有相同的代码

# Create our own custom icons
teamIcons <- iconList(
A = makeIcon("C:/Map/Asset 20.png", iconWidth = 18, iconHeight = 18),
B = makeIcon("C:/Map/Asset 21.png", iconWidth = 18, iconHeight = 18),
C = makeIcon("C:/Map/Asset 22.png", iconWidth = 18, iconHeight = 18),
D = makeIcon("C:/Map/Asset 23.png", iconWidth = 18, iconHeight = 18))

#创建我们自己的自定义图标
团队图标%
addMarkers（~data1$long，~data1$lat，icon=~teamIcons[data1$type]，弹出窗口
状态（U弹出窗口）

addMarkers的数据来自另一个数据集-data1，而不是Data。当我使用awesome图标时，它不会产生问题。当我使用目录中自己的图标时，我在地图上有一个普通的蓝色标记

无效的下标类型“逻辑”

library(leaflet)
library(dplyr) 

每个图标都是用数字定制的，并放在工作目录中

然后使用图标_list（）

#创建我们自己的自定义图标
图标列表%
addMarkers（~data2$long，~data2$lat，icon=~icon\u list[data2$project\u id]，
弹出=状态（弹出）

多亏了

的帮助，我得到了很多帮助

但是我在mutate函数中发现了两个错误，它丢失了要转换的datafame的名称，并且在创建

data2

时，我猜factor函数必须与

data2

dataframe一起工作

所以

而不是

mutate(type=factor(data$project_id),c("project1","project2")`.

# Create our own custom icons
icon_list <- iconList(
project1 = makeIcon("C:/Map/1.png", iconWidth = 24, iconHeight = 30),
project2 = makeIcon("C:/Map/2.png", iconWidth = 24, iconHeight = 30)

data2 <- data %>% mutate(type = factor(data$project_id), c("project1", 
"project2") 

m <-  leaflet(data=data) %>% 
  addProviderTiles(providers$Stamen.TonerLite) %>%
  addMarkers(~data2$long, ~data2$lat, icon=~icon_list[data2$project_id], 
  popup = state_popup)

mutate(data2,type=factor(data2$project_id),c("project1","project2"))

mutate(type=factor(data$project_id),c("project1","project2")`.