forked from ropensci/terrainr
-
Notifications
You must be signed in to change notification settings - Fork 0
/
README.Rmd
179 lines (135 loc) · 8.37 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
---
output: github_document
---
<!-- README.md is generated from README.Rmd. Please edit that file -->
```{r, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "man/figures/README-",
out.width = "100%"
)
```
# terrainr: Landscape Visualization in R and Unity <a href='https://docs.ropensci.org/terrainr/'><img src="man/figures/logo.png" align="right" height="138.5"/></a>
<!-- badges: start -->
[](https://choosealicense.com/licenses/mit/) [](https://cran.r-project.org/package=terrainr) [](https://lifecycle.r-lib.org/articles/stages.html#maturing) [](https://codecov.io/gh/ropensci/terrainr) [](https://www.repostatus.org/#active) [](https://github.com/ropensci/terrainr/actions) [](https://github.com/ropensci/software-review/issues/416)
<!-- badges: end -->
## Overview
terrainr makes it easy to retrieve elevation and base map image tiles for areas
of interest within the United States from the
[National Map family of APIs](https://apps.nationalmap.gov/services), and
then process that data into larger, joined images or crop it into tiles that can
be imported into the Unity 3D rendering engine.
There are three main utilities provided by terrainr. First, users are able to
download data from the National Map via the `get_tiles` function, downloading
data tiles for the area represented by an `sf` or `Raster` object:
```{r eval=FALSE}
library(terrainr)
library(sf)
# Optional way to display a progress bar while your tiles download:
library(progressr)
handlers("progress")
simulated_data <- data.frame(id = seq(1, 100, 1),
lat = runif(100, 44.04905, 44.17609),
lng = runif(100, -74.01188, -73.83493))
simulated_data <- st_as_sf(simulated_data, coords = c("lng", "lat"))
simulated_data <- st_set_crs(simulated_data, 4326)
with_progress( # Only needed if you're using progressr
output_tiles <- get_tiles(simulated_data,
services = c("elevation", "ortho"),
resolution = 90 # pixel side length in meters
)
)
```
Once downloaded, these images are in standard GeoTIFF or PNG formats and can be
used as expected with other utilities:
```{r eval=FALSE}
raster::plot(raster::raster(output_tiles[["elevation"]][[1]]))
```
```{r, echo = FALSE}
knitr::include_graphics("man/figures/elevation.jpg")
```
```{r eval=FALSE}
raster::plotRGB(raster::brick(output_tiles[["ortho"]][[1]]), scale = 1)
```
```{r echo=FALSE}
knitr::include_graphics("man/figures/naip.jpg")
```
Secondly, terrainr provides functions for manipulating these files, editing
downloaded images to create new base map tiles:
```{r eval = FALSE}
vector_overlay <- vector_to_overlay(
simulated_data,
output_tiles[["ortho"]]
)
vector_overlay <- combine_overlays(
output_tiles[["ortho"]],
vector_overlay
)
raster::plotRGB(raster::stack(vector_overlay))
```
```{r echo = FALSE}
knitr::include_graphics("man/figures/overlay.jpg")
```
Finally, terrainr helps you visualize this data, both natively in R via the new
`geom_spatial_rgb` geom:
```{r eval = FALSE}
library(ggplot2)
ggplot() +
geom_spatial_rgb(data = output_tiles[["ortho"]],
aes(x = x, y = y, r = red, g = green, b = blue)) +
geom_sf(data = simulated_data)
```
```{r echo = FALSE}
knitr::include_graphics("man/figures/ggplot.jpg")
```
As well as with the Unity 3D rendering engine, allowing you to fly or walk
through your downloaded data sets in 3D and VR:
```{r, results = FALSE, eval=FALSE}
with_progress( # When not specifying resolution, default is 1m pixels
output_tiles <- get_tiles(simulated_data,
services = c("elevation", "ortho"))
)
merged_dem <- merge_rasters(output_tiles[["elevation"]],
tempfile(fileext = ".tif"))
merged_ortho <- merge_rasters(output_tiles[["ortho"]],
tempfile(fileext = ".tif"))
mapply(function(x, y) raster_to_raw_tiles(input_file = x,
output_prefix = tempfile(),
side_length = 4097,
raw = y),
c(merged_dem, merged_ortho),
c(TRUE, FALSE))
# We can then import these tiles to Unity to create:
```
```{r echo=FALSE}
knitr::include_graphics("man/figures/unity-lakeside.jpg")
```
The more time intensive processing steps can all be monitored via the [progressr](https://github.com/HenrikBengtsson/progressr) package, so you'll be
more confident that your computer is still churning along and not just stalled
out. For more information, check out [the introductory vignette](https://docs.ropensci.org/terrainr//articles/overview.html) and
[the guide to importing your data into Unity!](https://docs.ropensci.org/terrainr//articles/unity_instructions.html)
## Available Datasets
The following datasets can currently be downloaded using `get_tiles` or `hit_national_map_api`:
- [3DEPElevation](https://elevation.nationalmap.gov/arcgis/rest/services/3DEPElevation/ImageServer): The USGS 3D Elevation Program (3DEP) Bare Earth DEM.
- [USGSNAIPPlus](https://services.nationalmap.gov/arcgis/rest/services/USGSNAIPPlus/MapServer): National Agriculture Imagery Program (NAIP) and high resolution orthoimagery (HRO).
- [nhd](https://hydro.nationalmap.gov/arcgis/rest/services/nhd/MapServer): A comprehensive set of digital spatial data that encodes information about naturally occurring and constructed bodies of surface water (lakes, ponds, and reservoirs), paths through which water flows (canals, ditches, streams, and rivers), and related entities such as point features (springs, wells, stream gauges, and dams).
- [govunits](https://carto.nationalmap.gov/arcgis/rest/services/govunits/MapServer): Major civil areas for the Nation, including States or Territories, counties (or equivalents), Federal and Native American areas, congressional districts, minor civil divisions, incorporated places (such as cities and towns), and unincorporated places.
- [contours](https://carto.nationalmap.gov/arcgis/rest/services/contours/MapServer): The USGS Elevation Contours service.
- [geonames](https://carto.nationalmap.gov/arcgis/rest/services/geonames/MapServer): Information about physical and cultural geographic features, geographic areas, and locational entities that are generally recognizable and locatable by name.
- [NHDPlus\_HR](https://hydro.nationalmap.gov/arcgis/rest/services/NHDPlus_HR/MapServer): A comprehensive set of digital spatial data comprising a nationally seamless network of stream reaches, elevation-based catchment areas, flow surfaces, and value-added attributes.
- [structures](https://carto.nationalmap.gov/arcgis/rest/services/structures/MapServer): The name, function, location, and other core information and characteristics of selected manmade facilities.
- [transportation](https://carto.nationalmap.gov/arcgis/rest/services/transportation/MapServer): Roads, railroads, trails, airports, and other features associated with the transport of people or commerce.
- [wbd](https://hydro.nationalmap.gov/arcgis/rest/services/wbd/MapServer): Hydrologic Unit (HU) polygon boundaries for the United States, Puerto Rico, and the U.S. Virgin Islands.
(All descriptions above taken from the [National Map API descriptions](https://apps.nationalmap.gov/services).)
## Installation
You can install the development version of terrainr from [GitHub](https://github.com/ropensci/terrainr) with:
``` r
# install.packages("devtools")
devtools::install_github("ropensci/terrainr")
```
## Code of Conduct
Please note that this package is released with a [Contributor
Code of Conduct](https://ropensci.org/code-of-conduct/).
By contributing to this project, you agree to abide by its terms.
[](https://ropensci.org)