Moving from proto to ggproto to create environments

Question

I am using GeomBoxplotDark environment from ggplot2: Multiple color scales or shift colors systematically on different layers?

However, ggplot2 moved away from proto to ggproto and so this doesn't work anymore.

The specific code is:

require(ggplot2)

GeomBoxplotDark <- proto(ggplot2:::GeomBoxplot,
  draw <- function(., data, ..., outlier.colour = "black", outlier.shape = 16, outlier.size = 2) {
defaults <- with(data, {                               # ** OPENING "{" ADDED **
cols_dk <- rgb2hsv(col2rgb(colour)) - c(0, 0, 0.2)     # ** LINE ADDED        **
cols_dk <- hsv(cols_dk[1,], cols_dk[2,], cols_dk[3,])  # ** LINE ADDED        **
data.frame(x = x, xmin = xmin, xmax = xmax,
  colour = cols_dk,                                    # ** EDITED, PASSING IN cols_dk **
  size = size,
  linetype = 1, group = 1, alpha = 1,
  fill = alpha(fill, alpha),
  stringsAsFactors = FALSE
)})                                                    # ** CLOSING "}" ADDED **
defaults2 <- defaults[c(1,1), ]

if (!is.null(data$outliers) && length(data$outliers[[1]] >= 1)) {
  outliers_grob <- with(data,
    GeomPoint$draw(data.frame(
      y = outliers[[1]], x = x[rep(1, length(outliers[[1]]))],
      colour=I(outlier.colour), shape = outlier.shape, alpha = 1,
      size = outlier.size, fill = NA), ...
    )
  )
} else {
  outliers_grob <- NULL
}

with(data, ggname(.$my_name(), grobTree(
  outliers_grob,
  GeomPath$draw(data.frame(y=c(upper, ymax), defaults2), ...),
  GeomPath$draw(data.frame(y=c(lower, ymin), defaults2), ...),
  GeomRect$draw(data.frame(ymax = upper, ymin = lower, defaults), ...),
  GeomRect$draw(data.frame(ymax = middle, ymin = middle, defaults), ...)
)))
  }
)

and it gives the following error: _inherit must be a ggproto object.

My question is: how can I solve this error so that I can create the environment with ggproto? Many thanks in advance.

score 0 · Answer 1 · answered Aug 16 '16 at 03:31

The following works for me. I added the expr={} wrapper.

GeomBoxplotDark <- ggproto(ggplot2:::GeomBoxplot,expr={
                               draw <- function(., data, ..., outlier.colour = "black", outlier.shape = 16, outlier.size = 2) {
                                 defaults <- with(data, {                               # ** OPENING "{" ADDED **
                                   cols_dk <- rgb2hsv(col2rgb(colour)) - c(0, 0, 0.2)     # ** LINE ADDED        **
                                   cols_dk <- hsv(cols_dk[1,], cols_dk[2,], cols_dk[3,])  # ** LINE ADDED        **
                                   data.frame(x = x, xmin = xmin, xmax = xmax,
                                              colour = cols_dk,                                    # ** EDITED, PASSING IN cols_dk **
                                              size = size,
                                              linetype = 1, group = 1, alpha = 1,
                                              fill = alpha(fill, alpha),
                                              stringsAsFactors = FALSE
                                   )})                                                    # ** CLOSING "}" ADDED **
                                 defaults2 <- defaults[c(1,1), ]

                                 if (!is.null(data$outliers) && length(data$outliers[[1]] >= 1)) {
                                   outliers_grob <- with(data,
                                                         GeomPoint$draw(data.frame(
                                                           y = outliers[[1]], x = x[rep(1, length(outliers[[1]]))],
                                                           colour=I(outlier.colour), shape = outlier.shape, alpha = 1,
                                                           size = outlier.size, fill = NA), ...
                                                         )
                                   )
                                 } else {
                                   outliers_grob <- NULL
                                 }

                                 with(data, ggname(.$my_name(), grobTree(
                                   outliers_grob,
                                   GeomPath$draw(data.frame(y=c(upper, ymax), defaults2), ...),
                                   GeomPath$draw(data.frame(y=c(lower, ymin), defaults2), ...),
                                   GeomRect$draw(data.frame(ymax = upper, ymin = lower, defaults), ...),
                                   GeomRect$draw(data.frame(ymax = middle, ymin = middle, defaults), ...)
                                 )))
                               }
    }
    )

Moving from proto to ggproto to create environments

1 Answers1