File:Gdp to debt ratio.svg
De Wikimedia Commons, el repositorio multimedia libre
Ir a la navegación
Ir a la búsqueda
Tamaño de esta previsualización PNG del archivo SVG: 750 × 600 píxeles. Otras resoluciones: 300 × 240 píxeles | 600 × 480 píxeles | 960 × 768 píxeles | 1280 × 1024 píxeles | 2560 × 2048 píxeles | 1800 × 1440 píxeles.
Archivo original (archivo SVG, nominalmente 1800 × 1440 píxeles, tamaño de archivo: 377 kB)
Información del archivo
Datos estructurados
Leyendas
Resumen
[editar]DescripciónGdp to debt ratio.svg |
English: Debt-to-GDP ratio for some european countries, data are taken from eurostat data explorer (31 may 2015, Table: gov_10dd_edpt1). It was created after File:Staatsschuldenquote.pdf. Data are updated, countries are reordered such that countries with similar ratio development are located nearby, and colors are changed to reflect sizes better as well as to improve for color blind people. |
Fecha | |
Fuente | Trabajo propio |
Autor | Sigbert |
SVG desarrollo InfoField | El código fuente de esta imagen SVG es válido. |
Código fuente InfoField | R codetrim <- function (x) gsub("^\\s+|\\s+$", "", x)
reorder <- function(d, wts) stats::reorder(d, wts, agglo.FUN = mean)
dist <- function(q) {
nc <- nrow(q)
qm<- as.matrix(q)
d <- matrix(NA, ncol=nc, nrow=nc)
for (i in 1:nc) d[i,] <- apply(abs(sweep(qm, 2, qm[i,])), 1, median, na.rm=T)
rownames(d) <- colnames(d) <- rownames(q)
print(d)
as.dist(d)
}
library("foreign")
library("RColorBrewer")
library("gplots")
library("countrycode")
x <- read.spss("gov_10dd_edpt1.sav", to.data.frame=T)
x$value[x$value==": "] <- NA
quote <- data.frame(COUNTRY=trim(x$GEO), YEAR=as.numeric(as.character(x$TIME)), RATIO=as.numeric(as.character(x$value)))
quote <- reshape(quote, idvar="COUNTRY", timevar="YEAR", direction = "wide")
# 170110: select only entries with two letter country code
ccountry <- as.character(quote$COUNTRY)
scountry <- (nchar(ccountry)==2)
# 170110: replace Greece and United Kingdom
nq <- countrycode(ccountry[scountry], "iso2c", "country.name")
nq[which(ccountry[scountry]=="EL")] <- "Greece"
nq[which(ccountry[scountry]=="UK")] <- "United Kingdom"
quote <- quote[scountry,-1]
rownames(quote) <- nq
colnames(quote) <- as.character(1994+seq(ncol(quote)))
colfun <- rev(brewer.pal(11, "Spectral"))
note <- apply(as.matrix(quote), c(1,2), function(elem) { if (is.na(elem)) return(""); sprintf("%.0f%%", elem) })
svg("gdp_to_debt_ratio.svg", width=20, height=16)
par(cex.main=2)
heatmap.2(as.matrix(quote), scale="none", col=colfun, margins=c(7,14),
Colv=NA, distfun=dist, reorderfun=reorder,
tracecol=NA,
main="Debt-to-GDP ratio for some\neuropean countries", cexRow=2, cexCol=2,
cellnote=note, notecol="black", notecex=1.6,
key.title="Color key", key.ylab="", key.xlab="", key.par=list(mar=c(3,1,2,0)),
keysize=0.5)
dev.off()
|
Licencia
[editar]Yo, el titular de los derechos de autor de esta obra, la publico en los términos de la siguiente licencia:
Este archivo está disponible bajo la licencia Creative Commons Dedicación de Dominio Público CC0 1.0 Universal. | |
La persona que ha asociado una obra a este documento lo dedica al dominio público mediante la cesión mundial de sus derechos bajo la ley de derechos de autor y todos los derechos legales adyacentes propios de dicha, en el ámbito permitido por ley. Puedes copiar, modificar, distribuir y reproducir el trabajo, incluso con objetivos comerciales, sin pedir aprobación del autor.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
Historial del archivo
Haz clic sobre una fecha y hora para ver el archivo tal como apareció en ese momento.
Fecha y hora | Miniatura | Dimensiones | Usuario | Comentario | |
---|---|---|---|---|---|
actual | 13:37 26 mar 2019 | 1800 × 1440 (377 kB) | WissensDürster (discusión | contribs.) | Updated 2 more years of data from Eurostat, cf. "Government deficit/surplus, debt and associated data (gov_10dd_edpt1)" in https://ec.europa.eu/eurostat/data/database Adjusted size of the heatmap, removed color key, removed dendrogram, removed main title, since color key is self-explanatory and titles can be added in wiki thumbs. | |
17:04 10 ene 2017 | 1800 × 1440 (650 kB) | Sigbert (discusión | contribs.) | New data from Eurostat are used. Note that same number slightly changed to the previous picture; Eurostat continuously updates current and past data. | ||
13:14 31 may 2015 | 1800 × 1440 (366 kB) | Sigbert (discusión | contribs.) | User created page with UploadWizard |
No puedes sobrescribir este archivo.
Usos del archivo
La siguiente página usa este archivo:
Uso global del archivo
Las wikis siguientes utilizan este archivo:
- Uso en en.wikipedia.org
- Uso en es.wikipedia.org
- Uso en fa.wikipedia.org
- Uso en he.wikipedia.org
- Uso en vi.wikipedia.org
- Uso en zh.wikipedia.org
Metadatos
Este archivo contiene información adicional, probablemente añadida por la cámara digital o el escáner usado para crearlo o digitalizarlo.
Si el archivo ha sido modificado desde su estado original, pueden haberse perdido algunos detalles.
Anchura | 1440pt |
---|---|
Altura | 1152pt |