File:Ticketverkäufe Freiburg Hauptbahnhof 1978–1988.svg

页面内容不支持其他语言。
這個文件來自維基共享資源
维基百科,自由的百科全书

原始文件(SVG文件,尺寸为900 × 630像素,文件大小:33 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
 
本W3C状态不明的矢量图使用R创作.

许可协议

Creative Commons CC-Zero 本作品采用知识共享CC0 1.0 通用公有领域贡献许可协议授权。
采用本宣告发表本作品的人,已在法律允许的范围内,通过在全世界放弃其对本作品拥有的著作权法规定的所有权利(包括所有相关权利),将本作品贡献至公有领域。您可以复制、修改、传播和表演本作品,将其用于商业目的,无需要求授权。

Data

save as data.csv:

"year","tickets"
1978,1303000
1979,1409000
1980,1585000
1981,1609000
1982,1443000
1983,1441000
1984,1456000
1985,1509000
1986,1472000
1987,1411000
1988,1338000

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[,2] <- data[,2]/1000000                  #devide data by 1000000 to get "millions" on the y-Axis
attach(data)

##############
## plotting ##
##############
## un-comment for svg-output:
#svg(file="test.svg", width=10, height=7) #note: this may not work on MS Windows, try Cairo instead

par(cex=1.2)

## plot the blue lines
plot(tickets ~ year,
   type="l",
   col="blue",
   xlab="Jahr",
   ylab="verkaufte Fahrkarten (Mio.)",
   bty="l",
   lwd=3)

## add the dots:
points(tickets ~ year,
   pch=16,
   col="blue")

##un-comment for svg-output:
#dev.off() 

说明

添加一行文字以描述该文件所表现的内容

此文件中描述的项目

描繪內容

文件历史

点击某个日期/时间查看对应时刻的文件。

日期/时间缩⁠略⁠图大小用户备注
当前2010年3月27日 (六) 17:302010年3月27日 (六) 17:30版本的缩略图900 × 630(33 KB)El Grafo{{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=[[User:El Grafo|El

以下页面使用本文件:

全域文件用途

以下其他wiki使用此文件:

元数据