MAKE A MEME
View Large Image
| View Original: | Ticketverkäufe Freiburg Hauptbahnhof 1978–1988.svg (720x504) | |||
| Download: | Original | Medium | Small | Thumb |
| Courtesy of: | commons.wikimedia.org | More Like This | ||
| Keywords: Ticketverkäufe Freiburg Hauptbahnhof 1978–1988.svg en Tickets sold at Freiburg Hauptbahnhof de Anzahl der verkauften Fahrkarten am Freiburger Hauptbahnhof inklusive der Haltepunkte Basler Straße Zähringen und Herdern own El Grafo 2010-02-28 Created with R History of Freiburg Hauptbahnhof Files by User El Grafo Data save as data csv <pre> year tickets 1978 1303000 1979 1409000 1980 1585000 1981 1609000 1982 1443000 1983 1441000 1984 1456000 1985 1509000 1986 1472000 1987 1411000 1988 1338000 </pre> R-code <pre> 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 </pre> | ||||
