Datei:EurUsd.png
aus Wikipedia, der freien encyclopedia
Größe dieser Vorschau: 800 × 514 Pixel. Weitere Auflösungen: 320 × 206 Pixel | 640 × 411 Pixel | 1.024 × 658 Pixel | 1.400 × 900 Pixel
Originaldatei (1.400 × 900 Pixel, Dateigröße: 26 KB, MIME-Typ: image/png)
Diese Datei und die Informationen unter dem roten Trennstrich werden aus dem zentralen Medienarchiv Wikimedia Commons eingebunden.
Beschreibung
BeschreibungEurUsd.png | EUR - USD FX (foreign exchange rate) since EUROs do exist. ECB fixation |
Datum | |
Quelle | data from ECB EURUSD fixing [1], as of 25.10.2020. created with GNU R, see source below; |
Urheber | origin Thomas Steiner |
Genehmigung (Weiternutzung dieser Datei) |
Thomas Steiner put it under the CC-by-SA 2.5. |
Andere Versionen | made to improve de:Bild:ChartUSD_EUR_99_06.JPG |
Diese Datei ist unter der Creative-Commons-Lizenz „Namensnennung – Weitergabe unter gleichen Bedingungen 2.5 generisch“ (US-amerikanisch) lizenziert.
- 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.
PNG‑Erstellung
InfoField
Quelltext
InfoField
R code
library(rsdmx)
raw = as.data.frame(readSDMX("https://www.ecb.europa.eu/stats/policy_and_exchange_rates/euro_reference_exchange_rates/html/usd.xml"))
greenback=rgb(red=13, green=82, blue=35, alpha=255, maxColorValue = 255)
greyusd=rgb(red=49, green=52, blue=45, alpha=255, maxColorValue = 255)
redusd=rgb(red=178, green=7, blue=25, alpha=255, maxColorValue = 255)
blueeur=rgb(red=0, green=50, blue=153, alpha=255, maxColorValue = 255)
yelloweuro=rgb(red=255, green=243, blue=21, alpha=255, maxColorValue = 255)
fixing=raw[,9]
date=as.Date(raw[,8],format="%Y-%m-%d")
items=seq(1,length(fixing),by=1) # setze "by=3" um weniger punkte zu zeichnen
png(filename="EurUsd.png", width=1400, height=900, pointsize=12)
par(bg=blueeur,mar=c(3,4.5,1.7,1.5)+0.1,font=2)
plot(date[items],fixing[items],type="n",xlim=c(10700,max(date)),xlab="",ylab="Wechselkurs (1 € = … USD)",cex.lab=1.7,col.lab="white",font.lab=2,col.axis="white",axes=FALSE)
usr=par("usr")
rect(xleft=usr[1], ybottom=usr[3], xright=usr[2], ytop=usr[4],col="white",border=NA)
yticks=seq(from=0.85,to=1.6,by=0.15)
axis(side=2,at=yticks,labels=format(yticks,nsmall=2,digits=3),font=2,col.axis="white",col="white",cex.axis=1.5,lwd=3)
yticksInner=seq(from=0.85,to=1.6,by=0.05)
axis(side=2,at=yticksInner,labels=NA,col.axis=NA,col.ticks=blueeur,lwd=0,lwd.ticks=2,tcl=0.5)
axis(side=4,at=yticksInner,labels=NA,col.axis=NA,col.ticks=blueeur,lwd=0,lwd.ticks=2,tcl=0.5)
startEUR=as.Date("1999-01-01")
xticks=as.Date(paste0(seq(1999,2023,by=2),"-1-1"))-startEUR
Sys.setlocale("LC_TIME", "German") #"Jan" und nicht "Jän"
axis(side=1,at=xticks+startEUR,labels=format(xticks+startEUR,"%b %y"),font=2,col.axis="white",col="white",cex.axis=1.5,lwd=3)
xticks2=as.Date(paste0(rep(seq(1999,2023,by=1),each=2),"-",c(1,7),"-1"))-startEUR
axis(side=1,at=xticks2+startEUR,labels=NA,col.axis=NA,col.ticks=blueeur,lwd=0,lwd.ticks=2,tcl=0.5)
axis(side=3,at=xticks2+startEUR,labels=NA,col.axis=NA,col.ticks=blueeur,lwd=0,lwd.ticks=2,tcl=0.5)
abline(v=xticks+startEUR,col=greyusd,lwd=1,lty="dotted") #statt grid
abline(h=yticks,col=greyusd,lwd=1,lty="dotted")
lines(date[items],fixing[items],col=greenback,lwd=3)
mini=which.min(fixing)
maxi=which.max(fixing)
lines(date[mini],fixing[mini],col=redusd,type="p",lwd=4,pch=23)
lines(date[maxi],fixing[maxi],col=redusd,type="p",lwd=4,pch=23)
legend(x=15500,y=1.58,"Wechselkurs EUR—USD ",adj=0,cex=2.85,bg=blueeur,text.col="white",border=NA)
dev.off()
The original dataset is available on the talk page.
In dieser Datei abgebildete Objekte
Motiv
22. April 2008
image/png
Dateiversionen
Klicke auf einen Zeitpunkt, um diese Version zu laden.
Version vom | Vorschaubild | Maße | Benutzer | Kommentar | |
---|---|---|---|---|---|
aktuell | 23:21, 5. Apr. 2023 | 1.400 × 900 (26 KB) | Thire | data until now (apr 23) | |
16:49, 19. Jul. 2022 | 1.400 × 900 (26 KB) | Thire | data until 19.7.22 | ||
10:15, 22. Mai 2022 | 1.400 × 900 (25 KB) | Thire | update as of 22.5.2022 | ||
23:26, 23. Jan. 2022 | 1.400 × 900 (52 KB) | Thire | update as of 23rd jan 2022 | ||
09:59, 23. Nov. 2021 | 1.400 × 900 (26 KB) | Thire | data up to nov 2021 from ecb | ||
22:23, 3. Feb. 2021 | 1.400 × 901 (26 KB) | Thire | update exb fixing end january 21 | ||
22:17, 3. Feb. 2021 | 1.400 × 900 (24 KB) | Thire | update time, end jan 2021 | ||
01:20, 25. Okt. 2020 | 1.400 × 900 (26 KB) | Thire | innere markierer achsen etc | ||
00:20, 25. Okt. 2020 | 1.400 × 900 (24 KB) | Thire | ecb data dirctly. see source Code in desc of page. DATA until oct 23 / 2020 | ||
02:28, 19. Okt. 2020 | 1.200 × 768 (21 KB) | Thire | update as of oct 2020 and ECB data, see desc page |
Dateiverwendung
Die folgenden 9 Seiten verwenden diese Datei:
Globale Dateiverwendung
Die nachfolgenden anderen Wikis verwenden diese Datei:
- Verwendung auf be-tarask.wikipedia.org
- Verwendung auf de.wikibooks.org
- Verwendung auf en.wikibooks.org
- Verwendung auf mk.wikipedia.org
- Verwendung auf sk.wikipedia.org
Abgerufen von „https://de.wikipedia.org/wiki/Datei:EurUsd.png“