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
|
\name{geom_line}
\alias{geom_line}
\alias{GeomLine}
\title{geom\_line}
\description{Connect observations, in ordered by x value}
\details{
This page describes geom\_line, see \code{\link{layer}} and \code{\link{qplot}} for how to create a complete plot from individual components.
}
\section{Aesthetics}{
The following aesthetics can be used with geom\_line. Aesthetics are mapped to variables in the data with the aes function: \code{geom\_line(aes(x = var))}
\itemize{
\item \code{x}: x position (\strong{required})
\item \code{y}: y position (\strong{required})
\item \code{colour}: border colour
\item \code{size}: size
\item \code{linetype}: line type
\item \code{alpha}: transparency
}
}
\usage{geom_line(mapping = NULL, data = NULL, stat = "identity", position = "identity",
...)}
\arguments{
\item{mapping}{mapping between variables and aesthetics generated by aes}
\item{data}{dataset used in this layer, if not specified uses plot dataset}
\item{stat}{statistic used by this layer}
\item{position}{position adjustment used by this layer}
\item{...}{other arguments}
}
\seealso{\itemize{
\item \code{\link{geom_path}}: Connect observations, in original order
\item \code{\link{geom_segment}}: Line segments
\item \code{\link{geom_ribbon}}: Fill between line and x-axis
\item \url{http://had.co.nz/ggplot2/geom_line.html}
}}
\value{A \code{\link{layer}}}
\examples{\dontrun{
# Summarise number of movie ratings by year of movie
mry <- do.call(rbind, by(movies, round(movies$rating), function(df) {
nums <- tapply(df$length, df$year, length)
data.frame(rating=round(df$rating[1]), year = as.numeric(names(nums)), number=as.vector(nums))
}))
p <- ggplot(mry, aes(x=year, y=number, group=rating))
p + geom_line()
# Add aesthetic mappings
p + geom_line(aes(size = rating))
p + geom_line(aes(colour = rating))
# Change scale
p + geom_line(aes(colour = rating)) + scale_colour_gradient(low="red")
p + geom_line(aes(size = rating)) + scale_size(to = c(0.1, 3))
# Set aesthetics to fixed value
p + geom_line(colour = "red", size = 1)
# Use qplot instead
qplot(year, number, data=mry, group=rating, geom="line")
# Using a time series
qplot(date, pop, data=economics, geom="line")
qplot(date, pop, data=economics, geom="line", log="y")
qplot(date, pop, data=subset(economics, date > as.Date("2006-1-1")), geom="line")
qplot(date, pop, data=economics, size=unemploy/pop, geom="line")
# See scale_date for examples of plotting multiple times series on
# a single graph
# A simple pcp example
y2005 <- runif(300, 20, 120)
y2010 <- y2005 * runif(300, -1.05, 1.5)
group <- rep(LETTERS[1:3], each = 100)
df <- data.frame(id = seq_along(group), group, y2005, y2010)
dfm <- reshape::melt(df, id.var = c("id", "group"))
ggplot(dfm, aes(variable, value, group = id, colour = group)) +
geom_path(alpha = 0.5)
}}
\author{Hadley Wickham, \url{http://had.co.nz/}}
\keyword{hplot}
|
