File:Ticketverkäufe Freiburg Hauptbahnhof 1978–1988.svg
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.)", bty="l", lwd=3) ## add the dots: points(tickets ~ year, pch=16, col="blue") ##un-comment for svg-output: #dev.off()