You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
81 lines
2.0 KiB
81 lines
2.0 KiB
% Generated by roxygen2: do not edit by hand
|
|
% Please edit documentation in R/geom_encircle.r
|
|
\name{geom_encircle}
|
|
\alias{geom_encircle}
|
|
\title{Automatically enclose points in a polygon}
|
|
\usage{
|
|
geom_encircle(mapping = NULL, data = NULL, stat = "identity",
|
|
position = "identity", na.rm = FALSE, show.legend = NA,
|
|
inherit.aes = TRUE, ...)
|
|
}
|
|
\arguments{
|
|
\item{mapping}{mapping}
|
|
|
|
\item{data}{data}
|
|
|
|
\item{stat}{stat}
|
|
|
|
\item{position}{position}
|
|
|
|
\item{na.rm}{na.rm}
|
|
|
|
\item{show.legend}{show.legend}
|
|
|
|
\item{inherit.aes}{inherit.aes}
|
|
|
|
\item{...}{dots}
|
|
}
|
|
\value{
|
|
adds a circle around the specified points
|
|
}
|
|
\description{
|
|
Automatically enclose points in a polygon
|
|
}
|
|
\details{
|
|
\if{html}{
|
|
A sample of the output from \code{geom_encircle()}:
|
|
|
|
\figure{geomencircle01.png}{options: width="100\%" alt="Figure: geomencircle01.png"}
|
|
}
|
|
|
|
\if{latex}{
|
|
A sample of the output from \code{geom_encircle()}:
|
|
|
|
\figure{geomencircle01.png}{options: width=10cm}
|
|
}
|
|
}
|
|
\examples{
|
|
d <- data.frame(x=c(1,1,2),y=c(1,2,2)*100)
|
|
|
|
gg <- ggplot(d,aes(x,y))
|
|
gg <- gg + scale_x_continuous(expand=c(0.5,1))
|
|
gg <- gg + scale_y_continuous(expand=c(0.5,1))
|
|
|
|
gg + geom_encircle(s_shape=1, expand=0) + geom_point()
|
|
|
|
gg + geom_encircle(s_shape=1, expand=0.1, colour="red") + geom_point()
|
|
|
|
gg + geom_encircle(s_shape=0.5, expand=0.1, colour="purple") + geom_point()
|
|
|
|
gg + geom_encircle(data=subset(d, x==1), colour="blue", spread=0.02) +
|
|
geom_point()
|
|
|
|
gg +geom_encircle(data=subset(d, x==2), colour="cyan", spread=0.04) +
|
|
geom_point()
|
|
|
|
gg <- ggplot(mpg, aes(displ, hwy))
|
|
gg + geom_encircle(data=subset(mpg, hwy>40)) + geom_point()
|
|
gg + geom_encircle(aes(group=manufacturer)) + geom_point()
|
|
gg + geom_encircle(aes(group=manufacturer,fill=manufacturer),alpha=0.4)+
|
|
geom_point()
|
|
gg + geom_encircle(aes(group=manufacturer,colour=manufacturer))+
|
|
geom_point()
|
|
|
|
ss <- subset(mpg,hwy>31 & displ<2)
|
|
|
|
gg + geom_encircle(data=ss, colour="blue", s_shape=0.9, expand=0.07) +
|
|
geom_point() + geom_point(data=ss, colour="blue")
|
|
}
|
|
\author{
|
|
Ben Bolker
|
|
}
|
|
|