library(mapview)
library(rosstat)
df = read_rosstat('data-raw/12-03.docx')
tree = tree_rosstat(df)
pp = get_rosstat(df, tree, 7)
cnt = sf::st_centroid(pp)
mapView(pp, zcol = 'X6', at = seq(0, 1400, 200), col.regions = rainbow(7), legend = TRUE) +
mapView(cnt, cex = 'X6', legend = TRUE)
max(pp$X6)
# andreyJSON <- toJSON(andreyList)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.