+.gg, :
> ggplot2:::`+.gg`
function (e1, e2)
{
e2name <- deparse(substitute(e2))
if (is.theme(e1))
add_theme(e1, e2, e2name)
else if (is.ggplot(e1))
add_ggplot(e1, e2, e2name)
}
, add_theme, add_ggplot, ggplot2:::add_ggplot. - , - "" , .
, R "" "+" gg, (- S3 classes). ggplot2 GitHub, ggproto.R, , , ggplot2 .
, ?