setwd('~/R/spd')

j=c(1946,seq(1948,1972,by=3),1976,seq(1978,1990,by=3),seq(1991,2012,by=1))
m=c(701,847,650,586,626,650,648,728,779,954,1022,997,956,916,910,943,920,885,861,849,818,793,776,775,755,734,718,694,651,606,590,561,540,520,513,502,490,477)

jb=c(1946,seq(1948,1972,by=3),1976,seq(1978,2012,by=3))
mb=c(701,847,650,586,626,650,648,728,779,954,1022,997,956,916,910,943,861,793,755,694,590,538,490)

svg(filename="spd.svg", 
    width=10, 
    height=7, 
    pointsize=12)

par(cex=1.5)

plot(j,m,type="l",ylim=c(0,1100),
     ylab="Mitglieder in Tsd.",xlab="",lwd=2,col="firebrick2",panel.first=grid(nx=NA,ny=NULL),
     axes=FALSE,frame.plot=TRUE)
axis(2)
axis(1,at=j)

points(j,m,pch=19,col="firebrick2")
text(jb,mb,mb,pos=3,cex=0.5)

dev.off()