MAKE A MEME
View Large Image
| View Original: | Ticketverkäufe Freiburg Hauptbahnhof 1900-1988.svg (720x504) | |||
| Download: | Original | Medium | Small | Thumb |
| Courtesy of: | commons.wikimedia.org | More Like This | ||
| Keywords: Ticketverkäufe Freiburg Hauptbahnhof 1900-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 1900 1340954 1905 881441 1910 1459104 1919 2610888 1920 2206057 1925 2057775 1927 1889864 1929 1379593 1930 1721429 1931 1514939 1932 1291310 1933 1212706 1934 1369997 1935 1421405 1960 1380842 1978 1303000 1979 1409000 1980 1585000 1981 1609000 1982 1443000 1983 1441000 1984 1456000 1985 1509000 1986 1472000 1987 1411000 1988 1338000 </pre> save as data_NA csv <pre> year NA tickets NA 1900 1340954 1901 NA 1902 NA 1903 NA 1904 NA 1905 881441 1906 NA 1907 NA 1908 NA 1909 NA 1910 1459104 1911 NA 1912 NA 1913 NA 1914 NA 1915 NA 1916 NA 1917 NA 1918 NA 1919 NA 1919 2610888 1920 2206057 1921 NA 1922 NA 1923 NA 1924 NA 1925 2057775 1926 NA 1927 1889864 1928 NA 1929 1379593 1930 1721429 1931 1514939 1932 1291310 1933 1212706 1934 1369997 1935 1421405 1936 NA 1937 NA 1938 NA 1939 NA 1940 NA 1941 NA 1942 NA 1943 NA 1944 NA 1945 NA 1946 NA 1947 NA 1948 NA 1949 NA 1950 NA 1951 NA 1952 NA 1953 NA 1954 NA 1955 NA 1956 NA 1957 NA 1958 NA 1959 NA 1960 1380842 1961 NA 1962 NA 1963 NA 1964 NA 1965 NA 1965 NA 1967 NA 1968 NA 1969 NA 1970 NA 1971 NA 1972 NA 1973 NA 1974 NA 1975 NA 1976 NA 1977 NA 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 read the time-series filled up with NA's this one is needed for the solid lines which are connecting only dots of cohering years data NA <- read csv data_NA csv sep attach data NA tickets NA <- tickets NA/1000000 devide data by 1000000 to get millions on the y-Axis 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 first plot the grey line plot tickets ~ year type l lty 2 col grey50 xlab Jahr ylab verkaufte Fahrkarten Mio bty l lwd 2 add the dots points tickets NA ~ year NA pch 16 col blue add the blue lines lines tickets NA ~ year NA type l lwd 2 col blue lend 3 add the legend legend x bottomright legend keine zusammenhängenden Daten verfügbar lty 2 col grey50 lwd 2 bty n un-comment for svg-output dev off </pre> | ||||
