Beschreibung

 

Dieses W3C-unbestimmte Chart wurde mit R erstellt.

Data from "Freiburger Adressbücher"

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

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

Lizenz

Ich, der Urheberrechtsinhaber dieses Werkes, veröffentliche es als gemeinfrei. Dies gilt weltweit. In manchen Staaten könnte dies rechtlich nicht möglich sein. Sofern dies der Fall ist: Ich gewähre jedem das bedingungslose Recht, dieses Werk für jedweden Zweck zu nutzen, es sei denn, Bedingungen sind gesetzlich erforderlich.