-
Notifications
You must be signed in to change notification settings - Fork 1
/
Day 5 Simple Maps.R
74 lines (59 loc) · 2.15 KB
/
Day 5 Simple Maps.R
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
#mini-lecture - telling datastories
#PDF on canvas
#Let's tell a datastory with the TV data...
#groups - we have 15 minutes
#clorpleth maps are really just a join and then a GGPLOT
library(maps)
library(mapdata)
library(ggplot2)
library(dplyr)
#let's call our data
states <- map_data("state")
head(states)
#these are just a bunch of points, almost like a map is just a bunch of polygons...
#we just run a basic ggplot but with the
ggplot(states, aes(x = long, y = lat, fill = region, group = group)) +
geom_polygon(color = "white") +
coord_fixed(1.3) +
#this takes of the list of 50 colors, the warning is that it is an old code
#but it checks out
guides(fill=FALSE)
#wait a second, what if we just wanted to see like a few states?
#graph the west_coast
ggplot(data = west_coast) +
#this is OLD style, you can put those geom controls inside the ggplot these days
geom_polygon(aes(x = long, y = lat, group = group), fill = "palegreen", color = "black") +
coord_fixed(1.3)
#NEW CODE
#THIS IS BASE-R IT IS DESTRUCTIVE
colnames(elector)[1]<-"region"
#FIX the ?
colnames(elector)[?]<-"votes"
#try this
states_map <- map_data("state")
ggplot(elector, aes(map_id = region)) +
geom_map(aes(fill = Value), map = states_map) +
expand_limits(x = states_map$long, y = states_map$lat)
#the fixed one...
ggplot(elector, aes(map_id = region)) +
geom_map(aes(fill = ?), map = states_map) +
expand_limits(x = states_map$long, y = states_map$lat)+
facet_wrap(~Value)
#map of oregon counties
oregon_map<-map_data('county', 'oregon')
ggplot(oregon_map, aes(x = long, y = lat, fill = region, group = group)) +
geom_polygon(color = "white") +
coord_fixed(1.3) +
#this takes of the list of 50 colors, the warning is that it is an old code
#but it checks out
guides(fill=FALSE)
#50 maps of the united states...
ggplot(states_map, aes(x = long, y = lat, fill = region, group = group)) +
geom_polygon(color = "white") +
coord_fixed(1.3) +
#this takes of the list of 50 colors, the warning is that it is an old code
#but it checks out
guides(fill=FALSE)+facet_wrap(~region)
#can we group things...
#in groups - add a grouper...
#Let's see some goodness...