File:Ticketverkäufe Freiburg Hauptbahnhof 1900–1935 b.svg

 

This W3C-unspecified chart was created with R.

save as data.csv:

"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

save as data_NA.csv:

"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

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

I, the copyright holder of this work, release this work into the public domain. This applies worldwide. In some countries this may not be legally possible; if so: I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.