Листовка для R: отображение нескольких строк данных во всплывающем окне

Пытаясь отобразить некоторые количественные данные с помощью leafletin R, мне удалось разместить круговые диаграммы с leaflet.minicharts на карте, как в следующем примере:

### data ###
d <- structure(list(
   area_name = c("Alscheid", "Alzingen", "Angelsberg", "Angelsberg", "Angelsberg", "Arsdorf","Asselborn", "Asselborn", "Baastenduerf", "Bartringen"), 
   surveyID1 = c(1510L, 24L, 382L, 1429L, 1061L, 526L, 1524L, 1281L, 2169L, 1292L), 
   Alter = c("25 bis 34", "25 bis 34", "15 bis 24", "15 bis 24", "25 bis 34", "15 bis 24", "35 bis 44", "35 bis 44", "25 bis 34", "25 bis 34"), 
   latitude = c(49.970094, 49.56885, 49.76374, 49.76374, 49.76374, 49.860547, 50.09624, 50.09624, 49.891134, 49.6038), longitude = c(6.007703, 6.16394, 6.1592, 6.1592, 6.1592, 5.842195, 5.97425, 5.97425, 6.164145, 6.0782), 
   count_all_variants = c(1, 1, 3, 3, 3, 1, 2, 2, 1, 1), 
   var1 = c(1L, 1L, 2L, 3L, 3L, 1L, NA, NA, NA, 1L), 
   var2 = c(NA, NA, 1L, NA, NA, NA, NA, NA, 1L, NA), 
   var3 = c(NA, NA, NA, NA, NA, NA, 2L, 2L, NA, NA)), 
   row.names = c(NA, 10L), class = "data.frame")

### mapping ###
library(leaflet)
library(leaflet.minicharts)

tilesURL <- "http://server.arcgisonline.com/ArcGIS/rest/services/Canvas/World_Light_Gray_Base/MapServer/tile/{z}/{y}/{x}"

title <- tags$div(HTML('<h3>Fussball</h3>'))  
basemap <- leaflet(options = leafletOptions(zoomControl = FALSE, minZoom = 9, maxZoom = 10, dragging = T)) %>%
   addTiles(tilesURL) %>%
   fitBounds(6.1, 49.4426671413, 6.1, 50.1280516628) %>%  
   addControl(title, position = "topleft")

colors <- c('#7fc97f','#beaed4','#fdc086')

basemap %>%
   addMinicharts(
   d$longitude, d$latitude,
   type = "pie",
   chartdata = d[, c("var1", "var2", "var3")], 
   colorPalette = colors,
   popup=popupArgs(
   labels=c("Fussball", "Futtball", "Foussball"),
   html=paste0("<h3>", d$area_name, "</h3>",
               "ID: ", d$surveyID1, "<br>",
               "Alter: ", d$Alter
               )
   ),
   width = 60 * sqrt(d$count_all_variants) / sqrt(max(d$count_all_variants)), transitionTime = 0
)

введите здесь описание изображения Рабочий пример

В дополнение к этому, я также хотел бы заполнить всплывающее окно для каждой круговой диаграммы всеми данными для соответствующего местоположения. На данный момент отображается только одна строка данных, показывающая 'area_name', 'SurveyID1' и 'Alter'. Взяв в качестве примера местоположение «Ангельсберг» (в середине карты), я хочу, чтобы всплывающее окно отображало данные для всех (3) строк данных, которые составляют круговую диаграмму, то есть:

<h3>Angelsberg</h3>
ID: 382 Alter: 15 bis 24<br>
ID: 1061 Alter: 15 bis 24<br>
ID: 526 Alter: 25 bis 34<br>

Я предполагаю, что мне нужно передать какой-то список / массив в html, но я понятия не имею, как этого добиться.


r r-leaflet
person Peter    schedule 19.06.2018    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Попробуйте заранее создать список с желаемым текстом, а затем передать его во всплывающую функцию, например:

### data ###
d <- structure(list(
    area_name = c("Alscheid", "Alzingen", "Angelsberg", "Angelsberg", "Angelsberg", "Arsdorf","Asselborn", "Asselborn", "Baastenduerf", "Bartringen"), 
    surveyID1 = c(1510L, 24L, 382L, 1429L, 1061L, 526L, 1524L, 1281L, 2169L, 1292L), 
    Alter = c("25 bis 34", "25 bis 34", "15 bis 24", "15 bis 24", "25 bis 34", "15 bis 24", "35 bis 44", "35 bis 44", "25 bis 34", "25 bis 34"), 
    latitude = c(49.970094, 49.56885, 49.76374, 49.76374, 49.76374, 49.860547, 50.09624, 50.09624, 49.891134, 49.6038), longitude = c(6.007703, 6.16394, 6.1592, 6.1592, 6.1592, 5.842195, 5.97425, 5.97425, 6.164145, 6.0782), 
    count_all_variants = c(1, 1, 3, 3, 3, 1, 2, 2, 1, 1), 
    var1 = c(1L, 1L, 2L, 3L, 3L, 1L, NA, NA, NA, 1L), 
    var2 = c(NA, NA, 1L, NA, NA, NA, NA, NA, 1L, NA), 
    var3 = c(NA, NA, NA, NA, NA, NA, 2L, 2L, NA, NA)), 
    row.names = c(NA, 10L), class = "data.frame")

Здесь вы создаете свой всплывающий текстовый список:

library(dplyr)

my_popups <- d %>% 
    group_by(area_name) %>% 
    mutate(popup = paste0("<h3>", 
                          area_name, 
                          "</h3><br>",
                          paste("ID:", surveyID1, "Alter:", Alter, collapse = "<br>"))) %>% 
    pull(popup)

И наконец:

### mapping ###
library(leaflet)
library(leaflet.minicharts)
library(htmltools)

tilesURL <- "http://server.arcgisonline.com/ArcGIS/rest/services/Canvas/World_Light_Gray_Base/MapServer/tile/{z}/{y}/{x}"

title <- tags$div(HTML('<h3>Fussball</h3>'))  

basemap <- leaflet(options = leafletOptions(zoomControl = FALSE, minZoom = 9, maxZoom = 10, dragging = T)) %>%
    addTiles(tilesURL) %>%
    fitBounds(6.1, 49.4426671413, 6.1, 50.1280516628) %>%  
    addControl(title, position = "topleft")

colors <- c('#7fc97f','#beaed4','#fdc086')

basemap %>%
    addMinicharts(
        d$longitude, d$latitude,
        type = "pie",
        chartdata = d[, c("var1", "var2", "var3")], 
        colorPalette = colors,
        popup=popupArgs(
            labels=c("Fussball", "Futtball", "Foussball"),
            html=my_popups
        ),
        width = 60 * sqrt(d$count_all_variants) / sqrt(max(d$count_all_variants)), transitionTime = 0
    )

введите здесь описание изображения

person HAVB    schedule 19.06.2018