Description Usage Arguments Value Examples
Creates dynamic chloropleth maps of danish zip codes
1 2 3 |
value |
is the name of the column in the data where the values are stored |
id |
is the name of the column in the data where the ids are stored |
subplot |
is a string of ids you want to keep - excludes all others |
data |
is the data frame that contains the data to map |
map |
is a TRUE / FALSE of wether a real map should be plotted underneath |
legend |
is a TRUE / FALSE of wether the legend should be plotted |
pal |
is the color palette for the chloropleth |
logcol |
is a TRUE / FALSE of wether the chloropleth colors should be drawn against the log value |
legendtitle |
provides an alternative title for the legend |
An interactive Leaflet map
1 2 3 4 5 6 7 8 9 10 11 12 | library(leafletDK)
ejen4 <- readr::read_csv2("http://api.statbank.dk/v1/data/EJEN4/CSV?OMR%C3%85DE=*&EJENDOMSKATE=2103&BN%C3%98GLE=2&OVERDRAG=1&Tid=2001")
ejen4 <- dplyr::select(ejen4, OMRÅDE, TID, INDHOLD)
ejen4 <- ejen4[stringr::str_detect(ejen4$OMRÅDE,"[A-ZÆØÅa-zæøå]"),]
ejen4$zip <- unlist(stringr::str_extract_all(ejen4$OMRÅDE, "\\d{4}"))
ejen4$zip <- ifelse(as.numeric(ejen4$zip) < 2400, round(as.numeric(ejen4$zip)/100)*100, as.numeric(ejen4$zip))
ejen4 <- dplyr::group_by(ejen4, zip)
ejen4 <- dplyr::summarise(ejen4, indhold = sum(INDHOLD))
zipDK("indhold", "zip", data = ejen4)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.