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

From Wikimedia Commons, the free media repository
Jump to navigation Jump to search

Original file ‎(SVG file, nominally 850 × 508 pixels, file size: 82 KB)

Captions

Captions

Add a one-line explanation of what this file represents

Summary[edit]

Description
English: Tickets sold at Freiburg Hauptbahnhof.
Deutsch: Anzahl der verkauften Fahrkarten am Freiburger Hauptbahnhof (inklusive der Haltepunkte Basler Straße, Zähringen und Herdern).
Date
Source Own work
Author El Grafo
 
This W3C-unspecified chart was created with R.
 
This W3C-unspecified vector image was created with Inkscape .

Licensing[edit]

Creative Commons CC-Zero This file is made available under the Creative Commons CC0 1.0 Universal Public Domain Dedication.
The person who associated a work with this deed has dedicated the work to the public domain by waiving all of their rights to the work worldwide under copyright law, including all related and neighboring rights, to the extent allowed by law. You can copy, modify, distribute and perform the work, even for commercial purposes, all without asking permission.

Data from "Freiburger Adressbücher"[edit]

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[edit]

###############
## 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.

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current15:24, 28 February 2010Thumbnail for version as of 15:24, 28 February 2010850 × 508 (82 KB)El Grafo (talk | contribs){{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

You cannot overwrite this file.

The following 2 pages use this file:

File usage on other wikis

The following other wikis use this file:

Metadata

This file contains additional information such as Exif metadata which may have been added by the digital camera, scanner, or software program used to create or digitize it. If the file has been modified from its original state, some details such as the timestamp may not fully reflect those of the original file. The timestamp is only as accurate as the clock in the camera, and it may be completely wrong.

Retrieved from "https://commons.wikimedia.org/w/index.php?title=File:Ticketverkäufe_Freiburg_Hauptbahnhof_1900–1935.svg&oldid=840444827"