2016-12-09 69 views
1

所以基本上我所擁有的是一張所有郵編都可以點擊的地圖。每當我點擊一個特定的郵編區域時,我會彈出一個窗口,這個窗口會顯示學校的名稱和等級。 我現在的問題是,1個郵編上有1個以上的學校,我想在彈出窗口中顯示每個郵編的所有學校。如何在彈出的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) 

面積與state_popup <- paste0("<strong>Schoolnaam: </strong>",是彈出窗口,你可以看到它只會打印出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)) 
相關問題