Delmål 15: Livet på land
Bruttoværditilvækst efter brancher under fangst
GS Bruttoværditilvækst efter brancher under fangst
# Import
NRX0418_raw <-
statgl_url("NRX0418", lang = language) %>%
statgl_fetch(
units = "K",
industry = c("BVTTOT", "BVT0102"),
time = px_all(),
.col_code = TRUE
) %>%
as_tibble()
NRX0418_raw %>%
mutate(time = time %>% as.numeric()) %>%
mutate(industry = industry %>% str_remove_all("[:digit:]") %>% trimws()) %>%
ggplot(aes(
x = time,
y = value/1e3,
color = industry
)) +
geom_line(size = 2) +
facet_wrap(~ industry, scales = "free", ncol = 1) +
theme_statgl() +
theme(legend.position = "none") +
scale_color_statgl() +
labs(
title = sdg15$figs$fig1$title[language],
subtitle = NRX0418_raw %>% pull(units) %>% unique(),
y = sdg15$figs$fig1$y_lab[language],
x = " ",
caption = sdg15$figs$fig1$cap[language]
)
NRX13_raw <-
statgl_url("NRX13", lang = language) %>%
statgl_fetch(
Kode = "VBVT0102",
time = px_all(),
.col_code = TRUE
) %>%
as_tibble()
NRX13_raw %>%
rename(industry = 1, time = 2) %>%
mutate(time = time %>% as.numeric()) %>%
mutate(industry = industry %>% str_remove_all("[:digit:]") %>% trimws()) %>%
ggplot(aes(
x = time,
y = value,
color = industry
)) +
geom_line(size = 2) +
geom_hline(yintercept = 0, linetype = "dashed") +
facet_wrap(~ industry, scales = "free", nrow = 3) +
geom_hline(yintercept = 0) +
scale_y_continuous(labels = scales::percent_format(
scale = 1
)) +
theme_statgl() +
theme(legend.position = "none") +
scale_color_statgl() +
labs(
title = sdg15$figs$fig3$title[language],
y = sdg15$figs$fig3$y_lab[language],
x = " ",
caption = sdg15$figs$fig3$cap[language]
)
Rødlistede dyr, 2018
FN 15.5.1 Rødliste-indeks
tables <-
"https://natur.gl/raadgivning/roedliste/1-roedlisten/" %>%
rvest:: read_html() %>%
rvest:: html_table(header = TRUE) %>%
set_names("animals", "plants")
tables["animals"] %>%
kbl() %>%
kable_styling(
bootstrap_options = c(
"striped", "hover", "condensed", "responsive"
)
) %>%
scroll_box(height = "500px")
|
Rødliste fra Grønlands Naturinstitut
Rødlistede karplanter, 2018
GS Rødlistede karplanter
tables["plants"] %>%
kbl() %>%
kable_styling(
bootstrap_options = c(
"striped", "hover", "condensed", "responsive"
)
) %>%
scroll_box(height = "500px")
|
Rødliste fra Grønlands Naturinstitut