Завантаження...

Uni Freiburg - Philosophen 1
 

 

 

This photo was viewed 0 times and was downloaded in full size 0 times.

This photo was liked 0 times

Please login in order to see the source link

Contents

Summary

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 28 February 2010(2010-02-28)
Source Own work
Author El Grafo
Rlogo.png
This chart was created with R.
Inkscape Logo.svg
This vector image was created with Inkscape.

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

Licensing

Public domain 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.



Licensing:
Public Domain

Comments

Only registered users can post comments. Please login



EXIF data:
File name uni_freiburg_-_philosophen_1.jpg
Size, bytes 2082475
Mime type image/jpeg
Image input equipment manufacturer SONY
Image input equipment model DSC-P93A
Orientation of image 1
Image resolution in width direction 72/1
Image resolution in height direction 72/1
Unit of X and Y resolution 2
Exposure time 10/2500
F number 80/10
Exposure program 2
ISO speed rating 100
Compressed bits per pixel 8/1
Exif version 0220
Lens focal length 155/10
Date and time original image was generated 2008:01:31 13:23:38
Date and time image was made digital data 2008:01:31 13:23:38
Meaning of each component 
Exposure bias 0/10
Maximum lens aperture 48/16
Metering mode 5
Supported Flashpix version 0100
Color space information 1
Exif image width 2592
Exif image length 1944
InteroperabilityOffset 2278
Scene type 
Interoperability index R98
Interoperability version 0100
The images at Free-Photos.biz come mainly from Wikimedia Commons or from our own production. The photos are either in the public domain, or licensed under free linceses: Free-Photos.biz license, GPL, Creative Commons or Free-Art license. Some very few other photos where uploaded to Free-Photos.biz by our users and released into the public domain or into free usage under another free license (like GPL etc.)

All photos in average size can be saved by everyone without registration (by right-clicking) - and all photos can be downloaded in full-size and without the big watermark by members (by left-clicking) (registration and free membership required).

While the copyright and licensing information supplied for each photo is believed to be accurate, Free-Photos.biz does not provide any warranty regarding the copyright status or correctness of licensing terms. If you decide to reuse the images from Free-Photos.biz, you should verify the copyright status of each image just as you would when obtaining images from other sources.


The use of depictions of living or deceased persons may be restricted in some jurisdictions by laws regarding personality rights. Such images are exhibited at Free-Photos.biz as works of art that serve higher artistic interests.

christianity portal