File:EurUsd.png

From Wikimedia Commons, the free media repository
Jump to navigation Jump to search

Original file(1,400 × 900 pixels, file size: 26 KB, MIME type: image/png)

Captions

Captions

Add a one-line explanation of what this file represents

Summary[edit]

Description 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
w:en:Creative Commons
attribution share alike
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
 
This chart was created with R.

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.

(newest | oldest) View (newer 10 | ) (10 | 20 | 50 | 100 | 250 | 500)
Date/TimeThumbnailDimensionsUserComment
current21:21, 5 April 2023Thumbnail for version as of 21:21, 5 April 20231,400 × 900 (26 KB)Thire (talk | contribs)data until now (apr 23)
14:49, 19 July 2022Thumbnail for version as of 14:49, 19 July 20221,400 × 900 (26 KB)Thire (talk | contribs)data until 19.7.22
08:15, 22 May 2022Thumbnail for version as of 08:15, 22 May 20221,400 × 900 (25 KB)Thire (talk | contribs)update as of 22.5.2022
21:26, 23 January 2022Thumbnail for version as of 21:26, 23 January 20221,400 × 900 (52 KB)Thire (talk | contribs)update as of 23rd jan 2022
07:59, 23 November 2021Thumbnail for version as of 07:59, 23 November 20211,400 × 900 (26 KB)Thire (talk | contribs)data up to nov 2021 from ecb
20:23, 3 February 2021Thumbnail for version as of 20:23, 3 February 20211,400 × 901 (26 KB)Thire (talk | contribs)update exb fixing end january 21
20:17, 3 February 2021Thumbnail for version as of 20:17, 3 February 20211,400 × 900 (24 KB)Thire (talk | contribs)update time, end jan 2021
23:20, 24 October 2020Thumbnail for version as of 23:20, 24 October 20201,400 × 900 (26 KB)Thire (talk | contribs)innere markierer achsen etc
22:20, 24 October 2020Thumbnail for version as of 22:20, 24 October 20201,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 2020Thumbnail for version as of 00:28, 19 October 20201,200 × 768 (21 KB)Thire (talk | contribs)update as of oct 2020 and ECB data, see desc page
(newest | oldest) View (newer 10 | ) (10 | 20 | 50 | 100 | 250 | 500)

File usage on other wikis

The following other wikis use this file: