File:Ticketverkäufe Freiburg Hauptbahnhof 1978-1988 b.svg

 

This W3C-unspecified chart was created with R.

I, the copyright holder of this work, release this work into the public domain. This applies worldwide. In some countries this may not be legally possible; if so: I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.

save as data.csv:

"year","tickets"
1978,1303000
1979,1409000
1980,1585000
1981,1609000
1982,1443000
1983,1441000
1984,1456000
1985,1509000
1986,1472000
1987,1411000
1988,1338000

###############
## read data ##
###############

## read the original time-series: this one is needed for the dashed grey line, connecting all the dots
data <- read.csv("data.csv", sep=",")
data[,2] <- data[,2]/1000000                  #devide data by 1000000 to get "millions" on the y-Axis
attach(data)

##############
## plotting ##
##############
## un-comment for svg-output:
#svg(file="test.svg", width=10, height=7) #note: this may not work on MS Windows, try Cairo instead

par(cex=1.2)

## plot the blue lines
plot(tickets ~ year,
   type="l",
   col="blue",
   xlab="Jahr",
   ylab="verkaufte Fahrkarten (Mio.)",
   ylim=c(0,1.7),
   bty="l",
   lwd=3)

## add the dots:
points(tickets ~ year,
   pch=16,
   col="blue")

##un-comment for svg-output:
#dev.off()