MAKE A MEME
View Large Image
| View Original: | Ticketverkäufe Freiburg Hauptbahnhof 1900–1935 b.svg (720x504) | |||
| Download: | Original | Medium | Small | Thumb |
| Courtesy of: | commons.wikimedia.org | More Like This | ||
| Keywords: Ticketverkäufe Freiburg Hauptbahnhof 1900–1935 b.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 File Ticketverkäufe Freiburg Hauptbahnhof 1900 �1935 svg Created with R Data from http //www ub uni-freiburg de/index php id adressbuecher Freiburger Adressbücher 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 </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 </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 <- data-15 remove data after 1935 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 data NA <- data NA- 38 nrow data NA remove data after 1935 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 output svg width 10 height 7 par cex 1 2 first plot the grey line plot tickets ~ year type l lty 2 col grey50 xlab Jahr ylab verkaufte Fahrkarten Mio ylim c 0 2 7 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> History of Freiburg Hauptbahnhof | ||||
