R传单聚类标记

时间:2018-05-25 14:18:25

标签: r shiny leaflet

不确定如何提出这个问题,但我会说出我想做的事情,看看是否有意义。

我想在地图上显示98个健康中心。我想知道一些患者(他们的地理编码家庭地址)访问哪个特定位置。

所以我想的更容易的是首先将98个健康中心全部用不同的颜色(所以98种不同颜色)映射,然后将患者地理编码的家庭地址映射为与其各自的健康中心相对应的相同颜色。 / p>

或者这可能......

在映射了98个健康中心后,用户是否能够点击特定的健康中心标记,从而产生出现在该位置的患者群?

library(leaflet) 

lon<- c(-79.7040814, -79.7181073, -79.7205967, -79.6950229, 
        -79.7025451, -79.7101802, -79.697314,  -79.4193994, 
        -79.3616147, -79.4222632, -79.3799488, -79.436703,  
        -79.2605482)
lat<-c(44.3717399, 44.38451, 44.4009188,44.3953905,
       44.3395549,44.4074851,44.342504,43.6850894,
       43.6790897,43.7099293,43.6692283,43.6724314,
       43.8007403)

Clinic<-  c("green", "green", "green","green","green","green","green",
            "red", "red","red","red","red", "red")

test_df<- data.frame(lon,lat,Clinic)

icon_ClinicA <- makeAwesomeIcon(icon= 'hospital-o', markerColor = 'green', 
                                iconColor = 'white', library = "fa")
icon_ClinicB<- makeAwesomeIcon(icon = 'hospital-o', markerColor = 'red', 
                               iconColor = 'white', library = "fa")

leaflet(data=test_df) %>% addTiles() %>%
  addMarkers(lng = ~lon, lat = ~lat, 
              addMarkers(clusterOptions = markerClusterOptions(lng=~lon, 
                        lat=~lat)) %>% 
  addCircleMarkers(color = ~Clinic, radius=2) %>% 
  addAwesomeMarkers(lng=-79.659507, lat=44.413486,
    label='Clinic A', icon = icon_ClinicA) %>% 
  addAwesomeMarkers(lng=-79.3939022, lat=43.6588712,
    label='Clinic B',icon = icon_ClinicB)

所以回顾一下:我面临的挑战是我试图指出哪些个体受试者来自某个诊所。在这个例子中很容易看到,但是当我绘制96个诊所中的其余部分时,一些诊所将靠近彼此。此外,我试图对98个诊所进行颜色编码(在这种情况下为红色与绿色),但现在考虑这可能不是最安全的路线,因为没有98种不同的颜色。是否有可能有颜色的阴影(如ggplot2)?因此,如果可能的话,诊所A标记可以是一个红色阴影,而诊所B是一个较暗的红色阴影(相应的受试者是否与各自的诊所匹配颜色)?

0 个答案:

没有答案