Zur Beschreibungsseite auf Commons

Datei:Ticketverkäufe Freiburg Hauptbahnhof 1900–1935.svg

aus Wikipedia, der freien Enzyklopädie

Originaldatei(SVG-Datei, Basisgröße: 850 × 508 Pixel, Dateigröße: 82 KB)

Commons-logo.svg

Diese Datei und die Informationen unter dem roten Trennstrich werden aus dem zentralen Medienarchiv Wikimedia Commons eingebunden.


Beschreibung

Beschreibung
English: Tickets sold at Freiburg Hauptbahnhof.
Deutsch: Anzahl der verkauften Fahrkarten am Freiburger Hauptbahnhof (inklusive der Haltepunkte Basler Straße, Zähringen und Herdern).
Datum
Quelle Eigenes Werk
Urheber El Grafo
 
Dieses W3C-unbestimmte Chart wurde mit R erstellt.
 
Diese W3C-unbestimmte Vektorgrafik wurde mit Inkscape erstellt .

Lizenz

Creative Commons CC-Zero Diese Datei wird unter der Creative-Commons-Lizenz CC0 1.0 Verzicht auf das Copyright zur Verfügung gestellt.
Die Person, die das Werk mit diesem Dokument verbunden hat, übergibt dieses weltweit der Gemeinfreiheit, indem sie alle Urheberrechte und damit verbundenen weiteren Rechte – im Rahmen der jeweils geltenden gesetzlichen Bestimmungen – aufgibt. Das Werk kann – selbst für kommerzielle Zwecke – kopiert, modifiziert und weiterverteilt werden, ohne hierfür um Erlaubnis bitten zu müssen.

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 pdf-output:
#pdf(file="test3.pdf", 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.)",
   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 pdf-output:
#dev.off() 

The Graph was exported as PDF and imported in Inkscape for slight adjustments (e.g. Arrows) and then exported as SVG.

Kurzbeschreibungen

Ergänze eine einzeilige Erklärung, was diese Datei darstellt.

In dieser Datei abgebildete Objekte

Motiv

Dateiversionen

Klicke auf einen Zeitpunkt, um diese Version zu laden.

Version vomVorschaubildMaßeBenutzerKommentar
aktuell15:24, 28. Feb. 2010Vorschaubild der Version vom 15:24, 28. Feb. 2010850 × 508 (82 KB)wikimediacommons>El Grafo{{Information |Description={{en|1=Tickets sold at Freiburg Hauptbahnhof.}} {{de|1=Anzahl der verkauften Fahrkarten am Freiburger Hauptbahnhof.}} |Source={{own}} |Author=El Grafo |Date=2010-02-28 |Permission= |other_versions= }} {{Templat

Metadaten