.build_options            package:ggplot2            R Documentation

_S_e_t _g_g_p_l_o_t _o_p_t_i_o_n_s

_D_e_s_c_r_i_p_t_i_o_n:

     Set global options for ggplot.

_U_s_a_g_e:

     .build_options(opt)

_A_r_g_u_m_e_n_t_s:

     opt: list of options to get/set

_D_e_t_a_i_l_s:

     These are aliased into every plot object, so that \'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:

        *  axis.colour: axis text and line colour ("black")

        *  background.colour: background text colour ("black"), used
           for title

        *  background.fill:   background fill ("white")

        *  grid.colour: plot grid colour ("white")

        *  grid.fill:   plot grid background fill ("grey90")

     Strip settings

        *  strip.text:   function with two arguments (variable, and
           value) used for generating strip labels

        *  strip.gp: graphic parameter settings for the strip

        *  strip.text.gp:  graphic parameter settings for the strip
           text

     Legend settings

        *  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

        *  legend.justifcation: part of legend that position refers to

     Other settings:

        *  aspect.ratio: aspect ratio of facets.  Set to \'NULL' to
           allow to vary with device size

_A_u_t_h_o_r(_s):

     Hadley Wickham <h.wickham@gmail.com>

_E_x_a_m_p_l_e_s:

     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

