Skip to content

# public jrnold /ggthemes

### Subversion checkout URL

You can clone with HTTPS or Subversion.

Fetching contributors…

Cannot retrieve contributors at this time

file 25 lines (23 sloc) 0.735 kb
 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 \name{scale_linetype_stata}\alias{scale_linetype_stata}\title{Stata linetype palette (discrete)}\usage{  scale_linetype_stata(...)}\arguments{  \item{...}{common discrete scale parameters: \code{name},  \code{breaks}, \code{labels}, \code{na.value},  \code{limits} and \code{guide}. See  \code{\link{discrete_scale}} for more details}}\description{  Linetype scale based on the linepatterns used in Stata.}\examples{library(reshape2) # for meltlibrary(plyr) # for ddplyecm <- melt(economics, id = "date")rescale01 <- function(x) (x - min(x)) / diff(range(x))ecm <- ddply(ecm, "variable", transform, value = rescale01(value))qplot(date, value, data=ecm, geom="line", linetype=variable) + scale_linetype_stata()}
Something went wrong with that request. Please try again.