File:EurUsd.png
From Wikimedia Commons, the free media repository
Jump to navigation
Jump to search
Size of this preview: 800 × 514 pixels. Other resolutions: 320 × 206 pixels | 640 × 411 pixels | 1,024 × 658 pixels | 1,400 × 900 pixels.
Original file (1,400 × 900 pixels, file size: 26 KB, MIME type: image/png)
File information
Structured data
Captions
Summary
[edit]DescriptionEurUsd.png | EUR - USD FX (foreign exchange rate) since EUROs do exist. ECB fixation |
Date | |
Source | data from ECB EURUSD fixing [1], as of 25.10.2020. created with GNU R, see source below; |
Author | origin Thomas Steiner |
Permission (Reusing this file) |
Thomas Steiner put it under the CC-by-SA 2.5. |
Other versions | made to improve de:Bild:ChartUSD_EUR_99_06.JPG |
This file is licensed under the Creative Commons Attribution-Share Alike 2.5 Generic license.
- You are free:
- to share – to copy, distribute and transmit the work
- to remix – to adapt the work
- Under the following conditions:
- attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
- share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.
PNG development
InfoField
Source code
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.
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 21:21, 5 April 2023 | 1,400 × 900 (26 KB) | Thire (talk | contribs) | data until now (apr 23) | |
14:49, 19 July 2022 | 1,400 × 900 (26 KB) | Thire (talk | contribs) | data until 19.7.22 | ||
08:15, 22 May 2022 | 1,400 × 900 (25 KB) | Thire (talk | contribs) | update as of 22.5.2022 | ||
21:26, 23 January 2022 | 1,400 × 900 (52 KB) | Thire (talk | contribs) | update as of 23rd jan 2022 | ||
07:59, 23 November 2021 | 1,400 × 900 (26 KB) | Thire (talk | contribs) | data up to nov 2021 from ecb | ||
20:23, 3 February 2021 | 1,400 × 901 (26 KB) | Thire (talk | contribs) | update exb fixing end january 21 | ||
20:17, 3 February 2021 | 1,400 × 900 (24 KB) | Thire (talk | contribs) | update time, end jan 2021 | ||
23:20, 24 October 2020 | 1,400 × 900 (26 KB) | Thire (talk | contribs) | innere markierer achsen etc | ||
22:20, 24 October 2020 | 1,400 × 900 (24 KB) | Thire (talk | contribs) | ecb data dirctly. see source Code in desc of page. DATA until oct 23 / 2020 | ||
00:28, 19 October 2020 | 1,200 × 768 (21 KB) | Thire (talk | contribs) | update as of oct 2020 and ECB data, see desc page |
You cannot overwrite this file.
File usage on Commons
The following 4 pages use this file:
File usage on other wikis
The following other wikis use this file:
- Usage on be-tarask.wikipedia.org
- Usage on de.wikipedia.org
- Usage on de.wikibooks.org
- Usage on en.wikibooks.org
- Usage on mk.wikipedia.org
- Usage on sk.wikipedia.org