概要
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()
ライセンス
Public domainPublic domainfalsefalse
|
|
この著作物は、著作者であるJkvによって権利が放棄され、パブリックドメインとされました。これは全世界で適用されます。 一部の国では、これが法的に可能ではない場合があります。その場合は、次のように宣言します。 Jkvは、あらゆる人に対して、法により必要とされている条件を除き、如何なる条件も課すことなく、あらゆる目的のためにこの著作物を使用する権利を与えます。
|
この
W3C-unspecified 統計図表は
Rで作成されました。