Dades del bicing i aplicació amb Shiny

Aplicació Shiny del bikeshare

Avui estava explorant el github de ramnathv que fa coses interessants amb gràfics d’R interactius, desenvolupant una llibreria anomenada rCharts. Mentre mirava les darreres modificacions he vist que ha fet una aplicació amb Shiny per representar dades dels bike share del món. Podeu comprovar que hi ha un munt de ciutats que han implementat sistemes per compartir bicicletes, però també que amb R es poden fer cada dia coses més increïbles. Per veure Barcelona heu de triar bicing al desplegable. El codi el podeu veure a github i si cliqueu el mapa, anireu a l’aplicació de shiny per veure la disponibilitat de bicicletes.

Bicing

Espero que veient el potencial de Shiny algú s’animi a fer una demostració al grup. Jo aquí ho deixo. Així que si no sabeu que fer aquestes vacances, una mica de Shiny pot ser una bona diversió! El tutorial oficial de Shiny el teniu al següent enllaç.

Importar dades del bicing a l’R

La pregunta natural que m’ha vingut al cap és d’on ha tret les dades. Perquè també les vull!!! He buscat d’on les treu i fa servir una API de citybik i de forma bastant fàcil he importat a l’R dades del bicing. Les dades les pots obtenir en el format JSON que ve a ser una cadena de text amb una estructura pròpia. Amb l’R hi ha un parell de llibreries que t’ho converteixen a estructures habituals d’R però jo m’he decantat per df2json.


library("df2json")
bicingJSON <- readLines(con = "http://api.citybik.es/bicing.json")
bicingDf <- json2df(bicingJSON)

head(bicingDf)

##                   cleaname                              name idx
## 1 Gran Via Corts Catalanes 1 - Gran Via Corts Catalanes, 760   0
## 2             Plaza Tetuán               2 - Plaza Tetuán, 8   1
## 3                  Ali Bei                   3 - Ali Bei, 44   2
## 4                    Ribes                     4 - Ribes, 13   3
## 5        Pg Lluís Companys         5 - Pg Lluís Companys, 11   4
## 6        Pg Lluís Companys         6 - Pg Lluís Companys, 18   5
##                    timestamp nearby_stations number free bikes coordinates
## 1 2013-07-23T18:36:15.260960  24,369,387,426      1   12    10            
## 2 2013-07-23T18:36:15.264112 360,368,387,414      2   21     4            
## 3 2013-07-23T18:36:15.267779     4,6,119,419      3   18     3            
## 4 2013-07-23T18:36:15.271181     3,5,359,419      4    0     0            
## 5 2013-07-23T18:36:15.274739     6,7,359,418      5   13    25            
## 6 2013-07-23T18:36:15.277496     5,8,359,418      6    3    32            
##        lat     lng id
## 1 41397952 2180042  0
## 2 41394272 2175169  1
## 3 41393699 2181137  2
## 4 41393389 2181485  3
## 5 41391075 2180223  4
## 6 41391349 2180610  5

Abans de publicar l’entrada he vist que les dades del bicing també estan disponibles a Open Data Bcn i que segur que és millor agafar-les del lloc oficial, on a part podeu aconseguir dades relacionades amb la ciutat de Barcelona. Tot i que de citybik podeu disposar de dades d’altres ciutats i ja he preparat com importar-les a l’R de forma fàcil.

Just demà marxo de vacances amb Internet molt limitat. Quan torni segurament publicaré alguna cosa del Open Data Bcn o alguna entrada amb anàlisi i tractament de dades i visualitzacions amb les dades del bicing.

Tags: , , , ,

5 responses to “Dades del bicing i aplicació amb Shiny”

  1. Martí says :

    Molt interessant. Es podria obtenir d’aquesta manera l’ús real cada dia (n de usuaris)? suposo que temps d’ús etc això ja seria més dificil. Pel que fa a al recurs Open Data Bcn està molt bé. Coneixes algun recurs semblant per a open data sports en general? Gràcies i enhorabona pel post. Shiny pendent!;)

    • Lluis Ramon says :

      Hola Martí,

      Es podria obtenir el nombre d’usos de les bicicletes, dels usuaris no. Desconec cap recurs sobre dades obertes i esports. Normalment amb l’Open Data els governs posen a disposició les dades que recol·lecten amb els impostos dels ciutadans, no sé si les dades dels esports entrarien i si ho fan, no crec que tingui massa detalls. Si descobreixo alguna cosa, ja et diré.

      PS: Perdona el retard però no podia contestar abans perquè estava fora.

  2. JuanB says :

    Hola,
    Estic montan un blog amb l’Open Data BCN i me trobat amb aquest comentari teu. Jo no havia pensat en el Bicing encara que tot està relacionat, més aviat havia pensat en una anàlisis exploratori i presentació gràfique preliminars per a després anar a la recerca de lineas d’investigació interesants vers aquestes dades, especialment m’interessa la comparació amb els Open Data d’altras ciutats.
    D’altra banda, encara no soc membre de la comunitat R Barcelona, estic en procés, un cop de mà en aquest sentit s’agraeix.
    Bones vacances, també marxo. Fins setembre.

    • Lluis Ramon says :

      ola Juan,

      Si necessites un cop de mà amb l’R des de RUGBCN estem encantats de poder-te ajudar. Molta sort amb el bloc de l’open data. Personalment a mi m’interessa molt que es posin a disposició del ciutadà les dades que recol·lecta l’administració i la comparativa amb altres ciutats també em sembla és molt pertinent.

      Si necessites alguna cosa, ja diràs.

      Bones vacances,

      PS: Perdona el retard però no podia contestar abans perquè estava fora.

Trackbacks / Pingbacks

  1. Made in Barcelona: Projecte Citybikes | RUG Barcelona - 17/08/2013

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: