\HeaderA{.build\_options}{Set ggplot options}{.build.Rul.options}
\aliasA{ggopt}{.build\_options}{ggopt}
\aliasA{theme\_bw}{.build\_options}{theme.Rul.bw}
\aliasA{theme\_default}{.build\_options}{theme.Rul.default}
\keyword{manip}{.build\_options}
\begin{Description}\relax
Set global options for ggplot.
\end{Description}
\begin{Usage}
\begin{verbatim}.build_options(opt)\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{opt}] list of options to get/set
\end{ldescription}
\end{Arguments}
\begin{Details}\relax
These are aliased into every plot object, so that \\code{p\$grid.col} will
return the default grid colour, unless it has been overriden for a particular
plot object.  You can change the global options using the function, or the
options for a specific plot by setting the values directly on the object.  See
the examples for more details.

Colour settings:

\Itemize{
\item axis.colour: axis text and line colour ("black")
\item background.colour: background text colour ("black"), used for title
\item background.fill:   background fill ("white")
\item grid.colour: plot grid colour ("white")
\item grid.fill:   plot grid background fill ("grey90")
}

Strip settings

\Itemize{
\item strip.text:   function with two arguments (variable, and value) used for
generating strip labels
\item strip.gp: graphic parameter settings for the strip
\item strip.text.gp:  graphic parameter settings for the strip text
}

Legend settings

\Itemize{
\item legend.position:   position of legend: "none" to hide legend;
"left", "right", "top", "bottom", for positioning outside of plot;
c(x, y) for positioning on top of plot
\item legend.justifcation: part of legend that position refers to
}

Other settings:

\Itemize{
\item aspect.ratio: aspect ratio of facets.  Set to \\code{NULL} to allow
to vary with device size
}
\end{Details}
\begin{Author}\relax
Hadley Wickham <h.wickham@gmail.com>
\end{Author}
\begin{Examples}
\begin{ExampleCode}ggopt(background.fill = "black", background.color ="white") # all new plots will use this
p <- qplot(total_bill, tip, facet = smoker ~ sex, data=tips)
p
p$background.fill = "white"
p
p$strip.text.gp <- gpar(col="red", fontsize=15)
p$strip.gp <- gpar(fill="black")
p$background.fill <- "black"
p$background.colour <- "white"
p$grid.colour <- "white"
p$grid.fill <- "grey50"
p # a very ugly plot!
ggopt(background.fill = "white", background.color ="black")

p <- qplot(wt, mpg, data=mtcars, colour=factor(cyl))
p$legend.position <- c(0.9,0.9); p
p$legend.position <- c(0.5,0.5)
p$legend.justification <- "center"
p

DF <- data.frame(
x=rnorm(20), 
y=rnorm(20), 
g1=rep(letters[1:2], 10),
g2=rep(LETTERS[1:2], each=10)
)

(p <- qplot(x, y, data=DF, facets = g1 ~ g2))

p$strip.text <- function (variable, value) {
greek <- c("A" = "alpha", "B" = "beta")[value]
makelabel <- function (g) substitute(variable == greek, list(variable=as.name(variable), greek=as.name(g)))

lapply(greek, makelabel)
}

p\end{ExampleCode}
\end{Examples}

