Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

18 lines (16 sloc) 0.495 kb
# Update geom defaults
# Modify geom aesthetic defaults for future plots
# @keywords name of geom to modify
# @keywords named list of aesthetics
# @keywords hplot
update_geom_defaults <- function(geom, new) {
g <- Geom$find(geom)
old <- g$default_aes()
aes <- defaults(new, old)
g$default_aes <- eval(substitute(function(.) aes, list(aes = aes)))
# change geom aesthetics
# change geom defaults for other params
# change scale defaults
# change default scale for given aesthetic
Jump to Line
Something went wrong with that request. Please try again.