# Set MAP for all languages
x1 <-
px(population_gl) |>
px_map('greenland')
# Print MAP
px_map(x1)
# Set MAP for individual variables
library(tibble)
x2 <-
x1 |>
px_map(tribble(~`variable-code`, ~map,
'gender', 'cities',
'age', 'municipalities'))
px_map(x2)
# Set MAP for individual languages
x3 <-
x2 %>%
px_languages(c('en', 'kl')) |>
px_map(tribble(~`variable-code`, ~language, ~map,
'gender', 'en', 'cities_en',
'gender', 'kl', 'cities_kl',
'age', 'en', 'municipalities_en'))
px_map(x3)
# Remove MAP
x4 <- px_map(x3, NULL)
px_map(x4)
Run the code above in your browser using DataLab