Beschreibung

 

Dieses W3C-unbestimmte Chart wurde mit R erstellt.

Lizenz

Ich, der Urheberrechtsinhaber dieses Werkes, veröffentliche es als gemeinfrei. Dies gilt weltweit. In manchen Staaten könnte dies rechtlich nicht möglich sein. Sofern dies der Fall ist: Ich gewähre jedem das bedingungslose Recht, dieses Werk für jedweden Zweck zu nutzen, es sei denn, Bedingungen sind gesetzlich erforderlich.

Data

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

R-code

###############
## 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()