Краткое описание

R source

#Eurostat 18.6.2007
#Employment rate (15 to 64 years), Finland 1992 - 2006
e <- c(65.1,61.0,60.3,61.6,62.4,63.3,64.6,66.4,67.2,68.1,68.1,67.7,67.6,68.4,69.3) 	 
# Harmonized unemployment rates, Finland 1988 - 2006
u <- c(4.2,3.1,3.2,6.6,11.7,16.3,16.6,15.4,14.6,12.7,11.4,10.2,9.8,9.1,9.1,9.0,8.8,8.4,7.7)	 
library("RSvgDevice")
devSVG("fin_unemployment.svg", width = 15, height = 12)
par(mar=c(3.5,3.5,1,2.5),las=1,mgp=c(2.4,1,0),cex=2)
x <- barplot(u,names.arg=1988:2006,col="gray65",space=.3,ylim=c(0,20),
             ylab="%",xaxs="r",xlim=c(.8,24.2))
text(x,u+.4,format(u,T))
lines(x[5:19],e-55,lwd=2)
points(x[5:19],e-55,lwd=2,cex=1.5,pch=1)
axis(4,seq(0,20,5),seq(55,75,5))
text(c(x[5],x[7],x[17],x[19]),c(e-55)[c(1,3,13,15)]+c(.5,-.7,-.7,.5),
     format(c(e)[c(1,5,13,15)],T,di=3))
box()
dev.off()

Лицензирование

Автор этого произведения, I, Jkv, передаёт его в общественное достояние. Это разрешение действует по всему миру. В некоторых странах это не может быть возможно юридически, в таком случае: I, Jkv предоставляет любому право использовать данное произведение в любых целях, без каких-либо условий, если только такие условия не требуются по закону.

 

Это chart было создано с помощью R.