Just a simple interactive plot ly graph that shows the number of average passengers per hour in the metro of Santiago de Chile.

metro_file = "metro.csv"
library(plotly)
metro_data <- read.csv(metro_file, sep=";")
plot_ly(metro_data, x=metro_data$Estacion, y=metro_data$PasajerosDia, mode="markers", size=metro_data$Pasajeros.Dia)