R geojson дисплей функций с листочкой

Question

У меня есть карта GeoJSON, которая отлично отображает листы и открытую уличную карту из Rstudio IDE локально, однако на карте не отображаются функции и свойства (встроенные в файл jeojson) при нажатии в разных регионах карты. При размещении файла в github github автоматически подбирает его и реагирует на клики - как видно на рисунке. Посмотрел информацию в справочных документах для R и не смог найти никакой информации.

leaflet() %>% 
     addProviderTiles("Hydda.Full") %>% 
     setView(lng = -77.03687, lat = 38.90719, zoom = 12) %>% 
     addGeoJSON(topoData, weight = 4, color = "red",fill = TRUE) 

Answer 1

Вот воспроизводимый пример, который производит что-то подобное к изображению:

library(mapview) 
library(geojsonio) 

## write data to disk as GeoJSON 
geojson_write(breweries91, file = "breweries91.geojson") 

## read back into R as Spatial* object 
dat <- geojson_read("breweries91.geojson", what = "sp") 

## plot using mapview 
mapview(dat) 

## or use leaflet with mapview::popupTable 
leaflet() %>% 
    addProviderTiles("Hydda.Full") %>% 
    addCircleMarkers(data = dat, popup = popupTable(dat)) 

Очевидно, что письменность в GeoJSON части необходимо только, чтобы показать правильную стратегию импорта, чтобы получить popupTable совместимый структура данных. В общем, при работе с пространственными данными я предлагаю использовать правильные пространственные классы для R, предоставляемые пакетами sp, а теперь также sf для векторных данных и raster для растровых данных.

Answer 2

Есть 3 способа, которыми вы можете это сделать.

1) У вас есть свойство под названием «всплывающее окно» для каждой функции вашего геойсона. Если есть одна листовка будет связывать всплывающее окно для этой функции с содержимым, равным значению «всплывающего окна» свойство https://github.com/rstudio/leaflet/blob/master/javascript/src/methods.js#L493

Проблема заключается в том, если вы не один, и большинство GeoJSON не будет иметь 'popup' свойство, то вы должны добавить на стороне R. т.е. преобразовать строку geojson в список и итеративно добавить всплывающее свойство к каждой функции и преобразовать ее обратно в строку geojson.

2) Преобразование geojson в sp-объект в R и использование всплывающих функций add (PolyLines/Polygons/Markers) и т. Д. Это не плохой вариант, так как обработка sp-объектов более элегантна, чем geojson string или список.

Demo http://rpubs.com/bhaskarvk/leaflet-geojson (У меня нет всплывающих окон, там есть только ярлык, но вы получаете идею).

3) Среднее основание, используйте https://github.com/bhaskarvk/leaflet.extras addGeoJsonChoropleth(), который позволяет указать любое свойство или пользовательский JS-код для определения вашего всплывающего содержимого. , например. http://rpubs.com/bhaskarvk/geojson-choropleth

Мне нравится 3, это лучшее, что позволяет мне добавить GeoJSON без каких-либо модификаций или преобразования, требуемых на стороне R. Единственная проблема заключается в том, что окраска выполняется на стороне JS, и она использует поставляемые поддоны chroma.js, в то время как 1 и 2 позволяют использовать технику окраски, которая согласуется с другими методами добавления (Shape).