-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathREADME.Rmd
200 lines (143 loc) · 8.12 KB
/
README.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
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
---
output: github_document
---
<!-- README.md is generated from README.Rmd. Please edit that file -->
```{r, echo=FALSE, message=FALSE, warning=FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "man/figures/README-",
echo = FALSE,
fig.align = "center",
out.width = "100%"
)
library(ggmap)
library(ggmapstyles)
library(tidyverse)
library(rvest)
options(scipen = 999)
```
# ggmapstyles
[](https://travis-ci.org/mikey-harper/ggmapstyles)
[](https://ci.appveyor.com/project/mikey-harper/ggmapstyles)
[](http://www.repostatus.org/#active)
<img src="https://img.shields.io/github/last-commit/dr-harper/ggmapstyles.svg" />
<img src="https://img.shields.io/github/stars/dr-harper/ggmapstyles.svg" />
*****
```{r, out.width="100%", fig.width=4}
knitr::include_graphics("ggmapstylesCover.png")
```
## Overview
**ggmapstyles** is an R package which extends the [ggmap](https://github.com/dkahle/ggmap) package. This package simplifes the process of creating custom designs for Google Maps, and provides a range of tools for quickly loading themes from [Snazzy Maps](https://snazzymaps.com/) by simply copying a website URL.
```{r CountNumStyles, warning=FALSE}
# Counts how many styles have been released
countStyles <-
xml2::read_html("https://snazzymaps.com/press") %>%
html_nodes(xpath = '//*[@class="figure-stat-value"]') %>%
.[2] %>%
str_replace('<div class="figure-stat-value">', "") %>%
str_replace('\n</div>', "") %>%
str_replace(",", "") %>%
as.numeric()
# Find the nearest thousand of the value
countStyles <- (floor(countStyles/1000)*1000)
```
Say goodbye to the standard Google Maps background, and easily choose from one of over `r countStyles` custom themes! If you cannot find a style you like, it is easy to sign up and create your own customised layers.
> This package is still in development. If you find any errors, or have any suggestions for improvements, please open an [Issue](https://github.com/mikey-harper/ggmapstyles/issues).
A selection of some of the styles available are shown below:
```{r maps, fig.height=8, fig.width=8, echo = FALSE, message = FALSE, warning = FALSE, fig.align="center", cache = TRUE}
# List maps to include
urls <- c("https://snazzymaps.com/style/35/avocado-world",
"https://snazzymaps.com/style/98/purple-rain",
"https://snazzymaps.com/style/84/pastel-tones",
"https://snazzymaps.com/style/64/old-dry-mud",
"https://snazzymaps.com/style/8097/wy",
"https://snazzymaps.com/style/23/bates-green",
"https://snazzymaps.com/style/127403/no-label-bright-colors",
"https://snazzymaps.com/style/83/muted-blue",
"https://snazzymaps.com/style/127403/no-label-bright-colors",
"https://snazzymaps.com/style/14/vintage",
"https://snazzymaps.com/style/68/aqua",
"https://snazzymaps.com/style/126378/vintage-old-golden-brown",
"https://snazzymaps.com/style/72/transport-for-london",
"https://snazzymaps.com/style/6296/darkdetail",
"https://snazzymaps.com/style/21/hopper",
"https://snazzymaps.com/style/40/vitamin-c")
# Create Plot
plotGrid <-
lapply(urls, function(x)
ggmap(get_snazzymap(center = "Southampton, UK", mapRef = x, maptype = "roadmap")) +
annotate(geom = "label", x = -0.97, y = 50.64,
label = paste0("Style ID: ", basename(dirname(x))),
hjust = 1, vjust = 0, label.r = unit(0, "lines"), label.size = 0) +
theme_void() +
theme(plot.title = element_text(hjust = 0.5, margin = margin(0.5, 0, 0.5, 0, unit = "cm") ))
)
# Plot the results
gridExtra::grid.arrange(grobs = plotGrid, ncol = 4)
```
## Installation
You can install the development version of the package through Github:
```
devtools::install_github("dr-harper/ggmapstyles")
```
Google recently changed their API requirements, so you will need to register with Google first. A useful guide is found in the **ggmaps** package: https://github.com/dkahle/ggmap
## Usage
You can browse [Snazzy Maps](https://snazzymaps.com/) to find a style you like. A number of functions have been developed to simplify the usage of Snazzymaps within existing workflows.
The main function to use within the package is `get_snazzymap`. This is a wrapper of the `get_googlemap` function, with the style of the map being set by `mapRef`:
```{r exampleMap, message = FALSE, echo = TRUE}
library(ggmapstyles)
basemap <- get_snazzymap("Southampton, UK", mapRef = "https://snazzymaps.com/style/83/muted-blue")
ggmap(basemap)
```
The `mapRef` parameter can accept the Snazzy Map reference in a number of different ways:
- Full URL: `mapRef = "https://snazzymaps.com/style/83/muted-blue"`
- ID & Name: `mapRef = "83/muted-blue"`
- ID: `mapRef = 83`
You can also supply additional arguments to the `get_snazzymap` function which are provided to `get_googlemap`. For example, the zoom can be changed as follows:
```{r themeTwo, message = FALSE, echo = TRUE, cache = TRUE}
basemap <- get_snazzymap("Southampton, UK", mapRef = "98/purple-rain", zoom = 15)
ggmap(basemap)
```
It's useful to note that the `maptype` argument of `get_googlemap` still defaults to returning a terrain map. This may make the Snazzymaps styling look different from expected, and different from the appearance on the Snazzymaps site, where the default is a roadmap. This is mostly useful for styling terrain or roadmaps; some, but not all, styling will show up with hybrid maps as well.
```{r maptype, message=FALSE, echo=TRUE, cache=TRUE, fig.height=3.3, fig.width=10}
# default: terrain
terrain <- ggmap(get_snazzymap("Southampton, UK", mapRef = "23/bates-green")) +
ggtitle("Terrain")
roadmap <- ggmap(get_snazzymap("Southampton, UK", mapRef = "23/bates-green", maptype = "roadmap")) +
ggtitle("Roadmap")
hybrid <- ggmap(get_snazzymap("Southampton, UK", mapRef = "23/bates-green", maptype = "hybrid")) +
ggtitle("Hybrid")
gridExtra::grid.arrange(terrain, roadmap, hybrid, ncol = 3)
```
If you would rather use the `style` argument within the `get_googlemap`, you can create a formatted string using the `ggmap_style_sm` function:
```{r extractStyleString, message = FALSE, echo = TRUE}
style_string <- ggmap_style_sm("84/pastel-tones")
style_string
```
This string can then easily be reused within any other ggmap function which takes a style argument. This approach is recommended if you want to plot multiple maps with the same basemap:
```{r StyleStringMultiple, echo=TRUE, fig.height=3.3, fig.width=10, message=FALSE, cache = TRUE}
plot1 <- ggmap(get_googlemap("Southampton, UK", style = style_string)) + labs(title = "Southampton")
plot2 <- ggmap(get_googlemap("London, UK", style = style_string)) + labs(title = "London")
plot3 <- ggmap(get_googlemap("Bristol, UK", style = style_string)) + labs(title = "Bristol")
gridExtra::grid.arrange(plot1, plot2, plot3, ncol = 3)
```
## Cached Styles
16 map styles are supplied within the package. These can be accessed by using the `map_styles()` function, and the following styles are available:
```{r tableOfStyles}
knitr::kable(ggmapstyles::list_styles())
```
There are several ways you can use this function to refer to a style:
- By name: `map_style("Blue Essence")`
- By ID: `map_style(ID = "40")`
- Pick one style at random: `map_style(random = TRUE)`: this also prints a message so that you know which style to reuse.
```{r mapStyles, echo = TRUE}
# search by name
map_style("Blue Essence")
# search by ID
map_style(ID = "40")
# Use directly within ggmap function
ggmap::get_googlemap("Southampton", style = map_style("apple-like"))
```
## Additional Reading
[This cheatsheet](https://www.nceas.ucsb.edu/~frazier/RSpatialGuides/ggmap/ggmapCheatsheet.pdf) into ggmap is useful for picking up some of the basics of ggmap.