# set all subsequent graphic output to gray scale
set(colors="gray")
# define a custom color theme: sienna
# this works regardless of the set color theme because
# all of the individual components of the theme are changed
# the trans options are the default values, so not necessary to
# set unless already changed previously
# the three ghost settings - trans.fill.bar, col.grid and col.bg --
# must be manually entered to achieve a ghost plot
set(col.fill.bar="sienna3")
set(col.fill.pt="sienna3")
set(col.stroke.bar="sienna3")
set(col.stroke.pt="sienna4")
set(col.bg="seashell1")
set(col.grid="seashell2")
set(trans.fill.bar=.00)
set(trans.fill.pt=.66)
# all numeric variables with 8 or less unique values are analyzed
# as categorical variables
set(n.cat=8)
Run the code above in your browser using DataLab