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
|
% Generated by roxygen2 (4.0.1): do not edit by hand
\name{annotation_map}
\alias{annotation_map}
\title{Annotation: maps.}
\usage{
annotation_map(map, ...)
}
\arguments{
\item{map}{data frame representing a map. Most map objects can be
converted into the right format by using \code{\link{fortify}}}
\item{...}{other arguments used to modify aesthetics}
}
\description{
Annotation: maps.
}
\examples{
library(maps)
usamap <- map_data("state")
seal.sub <- subset(seals, long > -130 & lat < 45 & lat > 40)
ggplot(seal.sub, aes(x = long, y = lat)) +
annotation_map(usamap, fill = "NA", colour = "grey50") +
geom_segment(aes(xend = long + delta_long, yend = lat + delta_lat))
seal2 <- transform(seal.sub,
latr = cut(lat, 2),
longr = cut(long, 2))
ggplot(seal2, aes(x = long, y = lat)) +
annotation_map(usamap, fill = "NA", colour = "grey50") +
geom_segment(aes(xend = long + delta_long, yend = lat + delta_lat)) +
facet_grid(latr ~ longr, scales = "free", space = "free")
}
|
