2016-12-09 13 views
1

基本的に私が持っているのは、すべての郵便番号がクリック可能な地図です。特定の郵便番号をクリックするたびにポップアップが表示され、このポップアップには学校の名前と学年が表示されます。 今私の問題は、1つの郵便番号に1つ以上の学校があり、ポップアップに各郵便番号のすべての学校を表示したいということです。 state_popup <- paste0("<strong>Schoolnaam: </strong>",Rのポップアップに複数の行を表示するにはどうすればよいですか?

shape_and_data <- merge(zipcode, aantal_hyp, by.x="PC4", by.y="ZIPCODE_SCHOOL", duplicateGeoms=TRUE, multiple = TRUE) 

#way to make colorpalletes 
pal <- colorQuantile("YlGn", NULL, n = 5) 


state_popup <- paste0("<strong>Schoolnaam: </strong>", 
         shape_and_data$INSTELLINGSNAAM_VESTIGING, 
         "<br><strong>Quasi cito : </strong>", 
         shape_and_data$quasicito) 


leaflet(data = shape_and_data) %>% 
    addProviderTiles("CartoDB.Positron") %>% 
    addPolygons(fillColor = ~pal(GEMEENTENUMMER), 
       fillOpacity = 0.8, 
       color = "#BDBDC3", 
       weight = 1, 
       popup = state_popup) 

面積あなたはそれだけで1 schoolnameを出力します見ることができるように、ポップアップです。

+1

あなたのポストに(dput使用して)エラーを再現するのに十分なあなたのデータのサブセットを追加することができます。 – MLavoie

答えて

1

は(あなたのリーフレットの内部変数を参照してください)コール:

leaflet(data = shape_and_data) %>% 
    addProviderTiles("CartoDB.Positron") %>% 
    addPolygons(fillColor = ~pal(GEMEENTENUMMER), 
       fillOpacity = 0.8, 
       color = "#BDBDC3", 
       weight = 1, 
       popup = paste("<strong>Schoolnaam: </strong>", 
        shape_and_data$INSTELLINGSNAAM_VESTIGING, 
        "<br><strong>Quasi cito : </strong>", 
        shape_and_data$quasicito)) 
関連する問題