-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathBigDataBiking.Rmd
163 lines (102 loc) · 4.11 KB
/
BigDataBiking.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
---
title: "Big Data & Biking: Bike Lane Uprising"
author: "Chicago R User Group (CRUG)"
date: "2019-03-20"
output: ioslides_presentation
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(RUGtools)
```
## Chicago R User Group (CRUG) ...
- CRUG is in it's 9th year of meetups!
- Now reached 3,500 members, one of largest groups in world!
**Slack**
[bit.ly/Slack-CRUG](http://bit.ly/Slack-CRUG)
**Twitter**
[ChicagoRusers](https://twitter.com/ChicagoRusers)
**GitHub**
@[Chicago-R-User-Group](https://github.com/Chicago-R-User-Group)
**Meetup**
[ChicagoRUG](https://www.meetup.com/ChicagoRUG/)
**Website**
<img src="images/header-background.png" width="100px">
[Chicago-r-user-group.github.io](https://chicago-r-user-group.github.io/)
# Local R News
##
<br/>
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
##
<br/>
Next Meetup:
- Tuesday, March 26th
R-Ladies Chicago welcomes Mara Averick: Sustainers of the Tidyverse
For more information find them:
<img src="images/R-LadiesGlobal.png" width="50px"/>https://rladieschicago.org/>
@[RLadiesChicago](https://twitter.com/RLadiesChicago)
[Meetup.com/R-Ladies Chicago](https://www.meetup.com/rladies-chicago/)
##
<br/>
> 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.
<br/>
IBM for sponsoring food and beverages!
# Tonight's Event
## Big Data & Biking: Bike Lane Uprising {.vcenter .flexbox}
<img src="images/BikeLaneUprising.jpg" width="250px"/>
**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 {.vcenter .flexbox}
<img src="images/BLUleaflet.png" width="500px"/>
## Troy's Maps {.vcenter .flexbox .smaller}
Crime in Chicago’s Community Areas
https://troyhernandez.com/2019/03/12/crime-in-chicagos-community-areas/
<img src="images/TroyLeaflet.png" width="450px"/>
## Chicago Data Portal's Map {.vcenter .flexbox .smaller}
<img src="images/ChiDataPortal.png" width="750px"/>
## Code {.smaller}
```{r, echo = TRUE, warning=FALSE}
library(leaflet)
library(sp)
bikeracks <- read.csv("data/Bike_Racks.csv")
head(bikeracks)
```
## Code
```{r, echo = TRUE, eval = FALSE}
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 {.smaller}
```{r, echo = FALSE}
# pal2 <- colorNumeric("RdBu", domain = c(-max(chicommunities$growth),
# max(chicommunities$growth)),
# reverse = TRUE)
leaflet() %>%
addTiles() %>%
addCircles(lng = bikeracks$Longitude, lat = bikeracks$Latitude,
radius = .5, opacity = 1, col = "blue")
```
## Post BLU Brainstorm/Hack
**How do we use this and other data to make biking, and the rest of our city, better?**