我有不同类型的观察结果,我想使用不同的形状和颜色将它们显示在传单上。R中的传单可以使用菱形、三角形、星形等形状吗?
我提供了虚拟数据并创建了不同颜色的圆形标记。
library(leaflet)
lat1= 36+runif(n=5,min=-1,max=1)
lon1 =-115+runif(n=5,min=-1,max=1)
lat2= 35+runif(n=5,min=-0.5,max=0.5)
lon2 =-110+runif(n=5,min=-0.5,max=0.5)
lat3= 34+runif(n=5,min=-0.5,max=0.5)
lon3 =-112+runif(n=5,min=-0.5,max=0.5)
data_all=rbind(data.frame(Longitude=lon1,Latitude=lat1,Group=1),
data.frame(Longitude=lon2,Latitude=lat2,Group=2),
data.frame(Longitude=lon3,Latitude=lat3,Group=3))
pal <- colorFactor(c("red","blue","purple"), domain = c(1,2,3))
leaflet(data_all) %>% addTiles() %>%
addCircleMarkers(~Longitude, ~Latitude,popup=~paste0("Group= ",data_all$Group),
radius = 10,
color = ~pal(Group),
stroke = FALSE, fillOpacity = 1
)
Run Code Online (Sandbox Code Playgroud)