リーフレット付きgeoJSONの文字列を使用

Question

私の最初の列はgeojson文字列で、2番目はその場所のメトリックです。最初の列の文字列が貼り付けられた場合、正しくレンダリングされますhttps://geojson.io/

次のリンクに示すように、これをR内の小冊子でプロットします。 https://rstudio.github.io/leaflet/json.html

残念ながら、私はリーフレット（一見spオブジェクト）で動作するフォーマットにデータを取得する方法を知りません。データの

例行：このような状況でのベストプラクティスに関する

geojson <- '{"type": "Polygon", "coordinates": [[ [-104.05, 48.99], [-97.22, 48.98], [-96.58, 45.94], [-104.03, 45.94], [-104.05, 48.99] ]]}' 
measure1 <- 10000 
test_df <- data.frame(geojson, measure1) 
test_df$geojson <- as.character(test_df$geojson) 

その他のヒントもいただければ幸いです。

Answer 1

確かにleafletにはgeojsonにpropertiesスロットが必要です。あなたは

library(leaflet) 
library(geojson) 
geojson <- '{"type": "Polygon", "coordinates": [[ [-104.05, 48.99], [-97.22, 48.98], [-96.58, 45.94], [-104.03, 45.94], [-104.05, 48.99] ]]}' 
geojson <- geojson::properties_add(geojson, population = 10000) 

あなたはもちろん、スロットは手動で文字列を操作するプロパティを追加することができ、geojson PKG、例えばでそれを行うことができますが、我々はjqr、それを行うことを確認します速いJSONパーサーを使用右

measure1 <- 10000 
df <- data.frame(geojson, measure1, stringsAsFactors = FALSE) 

leaflet() %>% 
    addTiles() %>% 
    addGeoJSON(df$geojson) %>% 
    setView(-100, 47.6, 7)