קובץ:Gdp_to_debt_ratio.svg
ויקיפדיה האנציקלופדיה encyclopedia
![קובץ:Gdp to debt ratio.svg](http://upload.wikimedia.org/wikipedia/commons/thumb/c/c3/Gdp_to_debt_ratio.svg/750px-Gdp_to_debt_ratio.svg.png)
גודל התצוגה המקדימה הזאת מסוג PNG של קובץ ה־SVG הזה: 750 × 600 פיקסלים. רזולוציות אחרות: 300 × 240 פיקסלים | 600 × 480 פיקסלים | 960 × 768 פיקסלים | 1,280 × 1,024 פיקסלים | 2,560 × 2,048 פיקסלים | 1,800 × 1,440 פיקסלים.
לקובץ המקורי (קובץ SVG, הגודל המקורי: 1,800 × 1,440 פיקסלים, גודל הקובץ: 377 ק"ב)
![]() |
זהו קובץ שמקורו במיזם ויקישיתוף. תיאורו בדף תיאור הקובץ המקורי (בעברית) מוצג למטה. |
תקציר
תיאורGdp 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. |
תאריך יצירה | |
מקור | נוצר על־ידי מעלה היצירה |
יוצר | Sigbert |
SVGהתפתחות InfoField | ![]() R עם נוצרה ה גרפיקה וקטורית |
קוד מקור 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()
|
רישיון
אני, בעל זכויות היוצרים על עבודה זו, מפרסם בזאת את העבודה תחת הרישיון הבא:
![]() ![]() |
קובץ זה זמין לפי תנאי הקדשה עולמית לנחלת הכלל CC0 1.0 של Creative Commons. |
האדם ששייך יצירה להיתר הזה הקדיש את היצירה לנחלת הכלל על־ידי ויתור על כל הזכויות שלו או שלה על היצירה בכל העולם לפי חוק זכויות יוצרים, לרבות כל הזכויות הקשורות או הסמוכות כקבוע בחוק. באפשרותך להעתיק, לשנות, להפיץ, או להציג את היצירה, אפילו למטרות מסחריות, וכל זה אפילו מבלי לבקש רשות.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
כיתובים
נא להוסיף משפט שמסביר מה הקובץ מייצג
פריטים שמוצגים בקובץ הזה
מוצג
ערך כלשהו ללא פריט ויקינתונים
31 במאי 2015
היסטוריית הקובץ
ניתן ללחוץ על תאריך/שעה כדי לראות את הקובץ כפי שנראה באותו זמן.
תאריך/שעה | תמונה ממוזערת | ממדים | משתמש | הערה | |
---|---|---|---|---|---|
נוכחית | 16:37, 26 במרץ 2019 | ![]() | 1,440 × 1,800 (377 ק"ב) | WissensDürster | 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. |
20:04, 10 בינואר 2017 | ![]() | 1,440 × 1,800 (650 ק"ב) | Sigbert | New data from Eurostat are used. Note that same number slightly changed to the previous picture; Eurostat continuously updates current and past data. | |
16:14, 31 במאי 2015 | ![]() | 1,440 × 1,800 (366 ק"ב) | Sigbert | User created page with UploadWizard |
שימוש בקובץ
הדף הבא משתמש בקובץ הזה:
שימוש גלובלי בקובץ
אתרי הוויקי השונים הבאים משתמשים בקובץ זה:
- שימוש באתר en.wikipedia.org
- שימוש באתר es.wikipedia.org
- שימוש באתר fa.wikipedia.org
- שימוש באתר vi.wikipedia.org
- שימוש באתר zh.wikipedia.org
מטא־נתונים
קובץ זה מכיל מידע נוסף, שכנראה הגיע ממצלמה דיגיטלית או מסורק שבהם הקובץ נוצר או עבר דיגיטציה.
אם הקובץ שונה ממצבו הראשוני, כמה מהנתונים להלן עלולים שלא לשקף באופן מלא את הקובץ הנוכחי.
רוחב | 1440pt |
---|---|
גובה | 1152pt |