temp/demo.R

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)
tsamsonov/rosstat documentation built on May 28, 2019, 4:32 a.m.