Datei:2014 militrary expenditures absolute.svg
Aus besserwiki.de
Größe der PNG-Vorschau dieser SVG-Datei: 512 × 288 Pixel. Weitere Auflösungen: 320 × 180 Pixel | 640 × 360 Pixel | 1.024 × 576 Pixel | 1.280 × 720 Pixel | 2.560 × 1.440 Pixel.
Originaldatei (SVG-Datei, Basisgröße: 512 × 288 Pixel, Dateigröße: 1,52 MB)
Diese Datei stammt aus Wikimedia Commons und kann von anderen Projekten verwendet werden. Die Beschreibung von deren Dateibeschreibungsseite wird unten angezeigt.
Beschreibung
Beschreibung2014 militrary expenditures absolute.svg |
English: Based on the Worldbank data from http://data.worldbank.org/indicator/MS.MIL.XPND.GD.ZS and http://data.worldbank.org/indicator/NY.GDP.MKTP.CD This is a candidate for replacing/augmenting https://commons.wikimedia.org/wiki/File:Countries_by_Military_expenditures_(%25_of_GDP)_in_2014_v2.svg |
Quelle | Eigenes Werk |
Urheber | Pipping |
Lizenz
Ich, der Urheber dieses Werkes, veröffentliche es unter der folgenden Lizenz:
Diese Datei ist lizenziert unter der Creative-Commons-Lizenz „Namensnennung – Weitergabe unter gleichen Bedingungen 4.0 international“.
- Dieses Werk darf von dir
- verbreitet werden – vervielfältigt, verbreitet und öffentlich zugänglich gemacht werden
- neu zusammengestellt werden – abgewandelt und bearbeitet werden
- Zu den folgenden Bedingungen:
- Namensnennung – Du musst angemessene Urheber- und Rechteangaben machen, einen Link zur Lizenz beifügen und angeben, ob Änderungen vorgenommen wurden. Diese Angaben dürfen in jeder angemessenen Art und Weise gemacht werden, allerdings nicht so, dass der Eindruck entsteht, der Lizenzgeber unterstütze gerade dich oder deine Nutzung besonders.
- Weitergabe unter gleichen Bedingungen – Wenn du das Material wiedermischst, transformierst oder darauf aufbaust, musst du deine Beiträge unter der gleichen oder einer kompatiblen Lizenz wie das Original verbreiten.
Created with the following piece of code:
library(magrittr)
selectedYear <- 2014
getWorldBankData <- function(indicatorCode, indicatorName) {
baseName <- paste('API', indicatorCode, 'DS2_en_csv_v2', sep='_')
## Download zipfile if necessary
zipfile <- paste(baseName, 'zip', sep='.')
if (!file.exists(zipfile)) {
zipurl <- paste(paste('http://api.worldbank.org/v2/en/indicator',
indicatorCode, sep='/'),
'downloadformat=csv', sep='?')
download.file(zipurl, zipfile)
}
csvfile <- paste(baseName, 'csv', sep='.')
## This produces a warning because of the trailing commas. Safe to ignore.
readr::read_csv(unz(zipfile, csvfile), skip=4,
col_types = list(`Indicator Name` = readr::col_character(),
`Indicator Code` = readr::col_character(),
`Country Name` = readr::col_character(),
`Country Code` = readr::col_character(),
.default = readr::col_double())) %>%
dplyr::select(-c(`Indicator Name`, `Indicator Code`, `Country Name`))
}
## Obtain and merge World Bank data
worldBankData <-
dplyr::left_join(
getWorldBankData('MS.MIL.XPND.GD.ZS') %>%
tidyr::gather(-`Country Code`, convert=TRUE,
key='Year', value=`Military expenditure (% of GDP)`,
na.rm = TRUE),
getWorldBankData('NY.GDP.MKTP.CD') %>%
tidyr::gather(-`Country Code`, convert=TRUE,
key='Year', value=`GDP (current US$)`,
na.rm = TRUE)) %>%
dplyr::mutate(`Military expenditure (current $US)` =
`Military expenditure (% of GDP)`*`GDP (current US$)`/100) %>%
dplyr::filter(Year == selectedYear) %>%
dplyr::mutate(Year = NULL)
## Plotting: Obtain Geographic data
mapData <- tibble::as.tibble(ggplot2::map_data("world")) %>%
dplyr::mutate(`Country Code` =
countrycode::countrycode(region, "country.name", "iso3c"),
## This produces a warning but I do not see how we could do better
## since we started with fuzzy names.
region = NULL, subregion = NULL)
combinedData <- dplyr::left_join(mapData, worldBankData)
## The default out-of-bounds function `censor` replaces values outside
## the range with NA. Since we have properly labelled the legend, we can
## project them onto the boundary instead
clamp <- function(x, range = c(0, 1)) {
lower <- range[1]
upper <- range[2]
ifelse(x > lower, ifelse(x < upper, x, upper), lower)
}
ggplot2::ggplot(data = combinedData, ggplot2::aes(long,lat)) +
ggplot2::geom_polygon(ggplot2::aes(group = group,
fill = `Military expenditure (current $US)`),
color = '#606060', lwd=0.05) +
ggplot2::scale_fill_gradientn(colours= rev(viridis::magma(256, alpha = 0.5)),
name = "Million\nUS Dollars",
trans = "log",
oob = clamp,
breaks = c(1e7,1e8,1e9,1e10,1e11,1e12),
labels = c('\u2264 10', '100', '1K',
'10K', '100K', '\u2265 1M'),
limits = c(1e7,1e12)) +
ggplot2::coord_fixed() +
ggplot2::theme_bw() +
ggplot2::theme(plot.title = ggplot2::element_text(hjust = 0.5),
axis.title = ggplot2::element_blank(),
axis.text = ggplot2::element_blank(),
axis.ticks = ggplot2::element_blank(),
panel.grid.major = ggplot2::element_blank(),
panel.grid.minor = ggplot2::element_blank(),
panel.border = ggplot2::element_blank(),
panel.background = ggplot2::element_blank()) +
ggplot2::labs(title = paste("Countries by military expenditures in",
selectedYear))
ggplot2::ggsave(paste(selectedYear, 'militrary_expenditures_absolute.svg', sep='_'),
height=100, units='mm')
In dieser Datei abgebildete Objekte
Motiv
Einige Werte ohne einen Wikidata-Eintrag
image/svg+xml
ded5f4862a17bb1a373b0654356ebcf6fe8e67c5
1.596.728 Byte
288 Pixel
512 Pixel
Dateiversionen
Klicke auf einen Zeitpunkt, um diese Version zu laden.
Version vom | Vorschaubild | Maße | Benutzer | Kommentar | |
---|---|---|---|---|---|
aktuell | 16:30, 20. Mai 2017 | 512 × 288 (1,52 MB) | wikimediacommons>Pipping | redo with dplyr |
Dateiverwendung
Die folgende Seite verwendet diese Datei:
Metadaten
Diese Datei enthält weitere Informationen, die in der Regel von der Digitalkamera oder dem verwendeten Scanner stammen. Durch nachträgliche Bearbeitung der Originaldatei können einige Details verändert worden sein.
Breite | 100% |
---|---|
Höhe | 100% |