(Acest articol a fost publicat pentru prima dată pe pacha.dev/blogși a contribuit cu drag la R-Bloggers). (Puteți raporta problema despre conținutul de pe această pagină aici)
Doriți să vă împărtășiți conținutul pe R-Bloggers? Faceți clic aici dacă aveți un blog sau aici dacă nu.
Dacă această postare vă este utilă, vă cer o donație minimă pentru a -mi cumpăra o cafea. Acesta va fi folosit pentru a continua eforturile mele open source. Explicația completă este aici: un mesaj personal de la un contribuabil open source.
Puteți să -mi trimiteți întrebări pentru blog folosind acest formular și să vă abonați pentru a primi un e -mail atunci când există o nouă postare.
Săptămâna trecută a trebuit să folosesc WBSTATS pentru a obține câteva serii de timp și mi -am dat seama că a fost eliminat de la CRAN. Cu toate acestea, s -a întors acum!
Am contactat întreținătorul, care a explicat că Cran a cerut ceva timp consumând modificări la structura și documentația pachetului și a fost eliminat prin politica CRAN privind accesul la internet.
Ceva similar s -a întâmplat cu pachetul TradeStatistics pe care l -am creat și pe care l -am menținut în ultimii nouă ani. Am adaptat abordarea TradeStatistics pentru a respecta politicile CRAN pentru WBSTATS, care a constat în utilizarea testelor batjocorite cu interogări API pre-înregistrate, datorită pachetului VCR, iar acum a revenit la CRAN. Alte modificări necesare în cazul în care modificări minuscule cu privire la documentație și structura pachetului.
Puteți instala:
Cea mai recentă versiune de lansare de la Cran cu
install.packages("wbstats")
sau
Cea mai recentă versiune de dezvoltare de la Github cu
remotes::install_github("pachadotdev/wbstats")
library(wbstats)
# Population for every country from 1960 until present
d <- wb_data("SP.POP.TOTL")
head(d)
# A tibble: 6 × 9 iso2c iso3c country date SP.POP.TOTL unit obs_status footnote last_updated1 AF AFG Afghanis… 2024 42647492 2025-07-01 2 AF AFG Afghanis… 2023 41454761 2025-07-01 3 AF AFG Afghanis… 2022 40578842 2025-07-01 4 AF AFG Afghanis… 2021 40000412 2025-07-01 5 AF AFG Afghanis… 2020 39068979 2025-07-01 6 AF AFG Afghanis… 2019 37856121 2025-07-01
Gapminderul lui Hans Rosling folosind wbstats
library(tidyverse)
library(wbstats)
my_indicators <- c(
life_exp = "SP.DYN.LE00.IN",
gdp_capita ="NY.GDP.PCAP.CD",
pop = "SP.POP.TOTL"
)
d <- wb_data(my_indicators, start_date = 2016)
d %>%
left_join(wb_countries(), "iso3c") %>%
ggplot() +
geom_point(
aes(
x = gdp_capita,
y = life_exp,
size = pop,
color = region
)
) +
scale_x_continuous(
labels = scales::dollar_format(),
breaks = scales::log_breaks(n = 10)
) +
coord_trans(x = 'log10') +
scale_size_continuous(
labels = scales::number_format(scale = 1/1e6, suffix = "m"),
breaks = seq(1e8,1e9, 2e8),
range = c(1,20)
) +
theme_minimal() +
labs(
title = "An Example of Hans Rosling's Gapminder using wbstats",
x = "GDP per Capita (log scale)",
y = "Life Expectancy at Birth",
size = "Population",
color = NULL,
caption = "Source: World Bank"
)
Folosind ggplot2 a hartă wbstats date
library(rnaturalearth)
library(tidyverse)
library(wbstats)
ind <- "SL.EMP.SELF.ZS"
indicator_info <- filter(wb_cachelist$indicators, indicator_id == ind)
ne_countries(returnclass = "sf") %>%
left_join(
wb_data(
c(self_employed = ind),
mrnev = 1
),
c("iso_a3" = "iso3c")
) %>%
filter(iso_a3 != "ATA") %>% # remove Antarctica
ggplot(aes(fill = self_employed)) +
geom_sf() +
scale_fill_viridis_c(labels = scales::percent_format(scale = 1)) +
theme(legend.position="bottom") +
labs(
title = indicator_info$indicator,
fill = NULL,
caption = paste("Source:", indicator_info$source_org)
)
