File:Ticketverkäufe Freiburg Hauptbahnhof 1900–1935.svg
此 SVG 檔案的 PNG 預覽的大小：800 × 478 像素。 其他解析度：320 × 191 像素 | 640 × 382 像素 | 1,024 × 612 像素 | 1,280 × 765 像素 | 2,560 × 1,530 像素 | 850 × 508 像素。
原始檔案 （SVG 檔案，表面大小：850 × 508 像素，檔案大小：82 KB）
摘要
| 描述 |
English: Tickets sold at Freiburg Hauptbahnhof.
Deutsch: Anzahl der verkauften Fahrkarten am Freiburger Hauptbahnhof (inklusive der Haltepunkte Basler Straße, Zähringen und Herdern). |
| 日期 | |
| 來源 | 自己的作品 |
| 作者 | El Grafo |
本vector image使用R創作。
本vector image使用Inkscape創作 .
授權條款
 
|
此檔案在創用CC CC0 1.0 通用公有領域貢獻宣告之下分發。 |
| 在此宣告之下分發本作品者，已依據各國著作權法，在全世界放棄其對本作品所擁有的著作權及所有相關相似的法律權利，從而將本作品貢獻至公有領域。您可以複製、修改、分發和演示該作品，用於任何商業用途，所有這些都不需要請求授權。
|
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.
檔案歷史
點選日期/時間以檢視該時間的檔案版本。
| 日期/時間 | 縮圖 | 尺寸 | 使用者 | 備註 | |
|---|---|---|---|---|---|
| 目前 | 2010年2月28日 (日) 15:24 | | 850 × 508（82 KB） | 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 |
檔案用途
下列頁面有用到此檔案：
全域檔案使用狀況
以下其他 wiki 使用了這個檔案：
- de.wikipedia.org 的使用狀況
- en.wikipedia.org 的使用狀況
