Chicago R User Group (CRUG) …

Local R News


From the inaugural conference in 2009, the annual R/Finance conference in Chicago has become the primary meeting for academics and practitioners interested in using R in Finance.

https://uic.cvent.com/rfinance2019CFP


Next Meetup:

  • Tuesday, March 26th R-Ladies Chicago welcomes Mara Averick: Sustainers of the Tidyverse

For more information find them:

https://rladieschicago.org/>

@RLadiesChicago

Meetup.com/R-Ladies Chicago


Spring Workshop on Causal Inference

The workshop will be appropriate for analysts who are familiar with classical statistical methods and ideas such as regression and confidence intervals. Participants interested in implementing some of the statistical methods during the workshop should bring a laptop that includes R software.

https://s01.123signup.com/servlet/SignUpMember?PG=1531573182300&P=15315731911433509500&Info

Anyone hiring R folks?

Tonight’s Sponsors

Chicago Women in Big Data

https://www.meetup.com/Chicago-Women-in-Big-Data

WeWork provides shared workspaces for technology startup, and services for entrepreneurs, freelancers, startups, small businesses and large enterprises.


IBM for sponsoring food and beverages!

Tonight’s Event

Big Data & Biking: Bike Lane Uprising

Agenda

  1. Kim Brown, Chicago Women in Big Data
  2. Troy Hernandez, Chicago R User Group
  3. Christina Whitehouse, Bike Lane Uprising

Leaflet

BLU’s Maps

Troy’s Maps

Crime in Chicago’s Community Areas

https://troyhernandez.com/2019/03/12/crime-in-chicagos-community-areas/

Chicago Data Portal’s Map

Code

library(leaflet)
library(sp)
bikeracks <- read.csv("data/Bike_Racks.csv")
head(bikeracks)
##   RackID          Address Ward Community.Area  Community.Name TotInstall
## 1    651 1 E Jackson Blvd    2             32            Loop          1
## 2   1409      1 E 51st St    3             40 Washington Park          1
## 3   1989     1 E Adams St   42             32            Loop          3
## 4   6379      1 E Erie St   42              8 Near North Side          1
## 5   3058 1 E Jackson Blvd    2             32            Loop          2
## 6   5019 1 E Jackson Blvd    2             32            Loop          2
##   Latitude Longitude Historical      F12       F13                LOCATION
## 1 41.87810 -87.62749          0 41.87810 -87.62749 (41.878100, -87.627495)
## 2 41.80190 -87.62581          1 41.80190 -87.62581 (41.801900, -87.625808)
## 3 41.87938 -87.62752          1 41.87938 -87.62752 (41.879382, -87.627517)
## 4 41.89397 -87.62794          1 41.89397 -87.62794 (41.893974, -87.627945)
## 5 41.87810 -87.62749          1 41.87810 -87.62749 (41.878100, -87.627495)
## 6 41.87810 -87.62749          1 41.87810 -87.62749 (41.878100, -87.627495)

Code

leaflet() %>%
  addTiles() %>%
  addCircles(lng = bikeracks$Longitude, lat = bikeracks$Latitude,
               radius = .5, opacity = 1, col = "blue")

https://gis.stackexchange.com/questions/168886/r-how-to-build-heatmap-with-the-leaflet-package

https://rstudio.github.io/leaflet/

Code

Post BLU Brainstorm/Hack

How do we use this and other data to make biking, and the rest of our city, better?