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
|
\name{panel.pointLabel}
\alias{panel.pointLabel}
\alias{sp.pointLabel}
\alias{sp.pointLabel-methods}
\alias{sp.pointLabel,SpatialPoints-method}
\title{Label placement with spplot and lattice.}
\description{
Use optimization routines to find good locations for point labels
without overlaps.
}
\usage{
panel.pointLabel(x, y = NULL,
labels = seq(along = x),
method = c("SANN", "GA"),
allowSmallOverlap = FALSE,
col = add.text$col,
alpha = add.text$alpha,
cex = add.text$cex,
lineheight = add.text$lineheight,
font = add.text$font,
fontfamily = add.text$fontfamily,
fontface = add.text$fontface,
fill='transparent',
...)
sp.pointLabel(object, labels, ...)
}
\arguments{
\item{object}{A \code{SpatialPoints} object.}
\item{x, y}{coordinates for the point labels. See
\code{\link[grDevices]{xy.coords}} for details.}
\item{labels}{a character vector or expression.}
\item{method}{the optimization method, either SANN for simulated
annealing (the default) or GA for a genetic algorithm.}
\item{allowSmallOverlap}{logical; if TRUE, labels are allowed a small
overlap. The overlap allowed is 2\% of the diagonal distance
of the plot area.}
\item{col, alpha, cex, lineheight, font, fontfamily,
fontface, fill}{Graphical arguments. See gpar for details}
\item{\dots}{Additional arguments (currently not processed).}
}
\author{Tom Short wrote \code{\link{pointLabel}} for \code{base}
graphics. Oscar Perpiñán Lamigueiro modified this function for
\code{lattice} and \code{spplot}.}
\seealso{
\code{\link[sp]{spplot}}
% \code{\link{sp.lineLabel}}
\code{\link{pointLabel}}
}
\examples{
n <- 15
x <- rnorm(n)*10
y <- rnorm(n)*10
labels <- as.character(round(x, 5))
myTheme <- list(add.text=list(
cex=0.7,
col='midnightblue',
fontface=2,
fontfamily='mono'))
library(lattice)
xyplot(y~x,
labels=labels,
par.settings=myTheme,
panel=function(x, y, labels, ...){
panel.xyplot(x, y, ...)
panel.pointLabel(x, y, labels=labels, ...)
})
data(meuse.grid)
coordinates(meuse.grid) = ~x+y
proj4string(meuse.grid) <- CRS("+init=epsg:28992")
gridded(meuse.grid) = TRUE
library(RColorBrewer)
myCols <- adjustcolor(colorRampPalette(brewer.pal(n=9, 'Reds'))(100), .85)
pts <- spsample(meuse.grid, n=15, type="random")
Rauthors <- readLines(file.path(R.home("doc"), "AUTHORS"))[9:28]
someAuthors <- Rauthors[seq_along(pts)]
sl1 <- list('sp.points', pts, pch=19, cex=.8, col='midnightblue')
sl2 <- list('sp.pointLabel', pts, label=someAuthors,
cex=0.7, col='midnightblue',
fontfamily='Palatino')
spplot(meuse.grid["dist"], col.regions=myCols, sp.layout=list(sl1, sl2))
}
|
