In order to travel to Milan, the following distinction has been made between tickets, weekly/monthly/annual travel cards: For each additional zone the cost of the ticket increases, therefore the 3 zone ticket costs €2.20, the 4 zone ticket €2.60 etc. This ticket also applies for journeys within the same municipal and between municipals belonging to the same fare zone. In all other municipals of the System, the minimum fare that can be purchased is equal to 2 zones and costs the same as the minimum fare ticket price. In Milan, the minimum fare that can be purchased is 3 fare zones (Mi1 - Mi3). the starting point and the destination of the journey, is calculated on the basis of the number of zones travelled (increasing in value with each additional zone travelled). Let’s create a subset of the data only containing the bus line B54 and direction 0 so that we can create a 3D Time-space diagram.The fare between two locations, i.e. We stored MTA Bustime Data using their API for a day for all the buses and converted it into pings.csv # Read the input into a dataframe df <- read.csv("./Data/pings.csv", head=TRUE, skip=1) # Check the class of the RecordedAtTime column class(df$RecordedAtTime) # "factor" # convert the class of the RecordedAtTime columnĭf$RecordedAtTime <- as.POSIXlt(df$RecordedAtTime) # Extract hour from the column head(df$RecordedAtTime$hour) # 7 8 7 8 8 7 If you are interested about how to do similar HTML pages, please visit: Let’s first load the library we are going to use in R.
0 kommentar(er)
