init
This commit is contained in:
commit
116abafc09
58 changed files with 5749 additions and 0 deletions
61
man/pmPalette.Rd
Normal file
61
man/pmPalette.Rd
Normal file
|
|
@ -0,0 +1,61 @@
|
|||
% Generated by roxygen2: do not edit by hand
|
||||
% Please edit documentation in R/palette.R
|
||||
\name{pmPalette}
|
||||
\alias{pmPalette}
|
||||
\title{Apply Color Palette to Land Use Categories}
|
||||
\usage{
|
||||
pmPalette(palette, categories = NULL, n = NULL, background = "#f8f8f8")
|
||||
}
|
||||
\arguments{
|
||||
\item{palette}{Character vector of colors, or a function that generates colors.
|
||||
Can be output from viridis::viridis(), RColorBrewer::brewer.pal(), etc.}
|
||||
|
||||
\item{categories}{Character vector of category names to map colors to.
|
||||
Default maps to common land use types: water, park, wood, residential,
|
||||
commercial, industrial.}
|
||||
|
||||
\item{n}{Integer. Number of colors to generate if palette is a function.
|
||||
Default is NULL (uses length of categories).}
|
||||
|
||||
\item{background}{Character. Background/default color for unassigned categories.
|
||||
Default is "#f8f8f8".}
|
||||
}
|
||||
\value{
|
||||
A list of color mappings suitable for pmColors() or addProtomaps(colors=).
|
||||
}
|
||||
\description{
|
||||
Maps colors from a palette to land use categories, enabling use of
|
||||
viridis, RColorBrewer, and other R color palettes with Protomaps.
|
||||
}
|
||||
\examples{
|
||||
\dontrun{
|
||||
library(leaflet)
|
||||
library(protomapr)
|
||||
|
||||
# Using viridis palette for land use
|
||||
if (requireNamespace("viridisLite", quietly = TRUE)) {
|
||||
colors <- pmPalette(viridisLite::viridis(6))
|
||||
leaflet() \%>\%
|
||||
setView(lng = -122.4, lat = 37.8, zoom = 12) \%>\%
|
||||
addProtomaps(url = protomaps_url(), colors = colors)
|
||||
}
|
||||
|
||||
# Using RColorBrewer
|
||||
if (requireNamespace("RColorBrewer", quietly = TRUE)) {
|
||||
colors <- pmPalette(RColorBrewer::brewer.pal(6, "Set2"))
|
||||
leaflet() \%>\%
|
||||
setView(lng = -122.4, lat = 37.8, zoom = 12) \%>\%
|
||||
addProtomaps(url = protomaps_url(), colors = colors)
|
||||
}
|
||||
|
||||
# Custom category mapping
|
||||
colors <- pmPalette(
|
||||
c("#264653", "#2a9d8f", "#e9c46a", "#f4a261", "#e76f51"),
|
||||
categories = c("water", "park", "sand", "buildings", "highway")
|
||||
)
|
||||
}
|
||||
|
||||
}
|
||||
\seealso{
|
||||
\code{\link{pmPaletteStyle}}, \code{\link{pmColors}}
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue