###############
## 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
Public domainPublic domainfalsefalse
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.
Kurzbeschreibungen
Ergänze eine einzeilige Erklärung, was diese Datei darstellt.
== Summary == {{Information |Description={{en|1=Tickets sold at Freiburg Hauptbahnhof.}} {{de|1=Anzahl der verkauften Fahrkarten am Freiburger Hauptbahnhof (inklusive der Haltepunkte Basler Straße, Zähringen und Herdern).}} |Source={{own}} |Author=[[Use