Dieses W3C-unbestimmte Chart wurde mit R erstellt.

Diese Datei wird unter der Creative-Commons-Lizenz CC0 1.0 Verzicht auf das Copyright zur Verfügung gestellt.

Die Person, die das Werk mit diesem Dokument verbunden hat, übergibt dieses weltweit der Gemeinfreiheit, indem sie alle Urheberrechte und damit verbundenen weiteren Rechte – im Rahmen der jeweils geltenden gesetzlichen Bestimmungen – aufgibt. Das Werk kann – selbst für kommerzielle Zwecke – kopiert, modifiziert und weiterverteilt werden, ohne hierfür um Erlaubnis bitten zu müssen. http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse

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.)",
   bty="l",
   lwd=3)

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

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