diff --git a/R/geom-crossbar.r b/R/geom-crossbar.r index 53af004a00..74b678c75c 100644 --- a/R/geom-crossbar.r +++ b/R/geom-crossbar.r @@ -107,5 +107,7 @@ GeomCrossbar <- ggproto("GeomCrossbar", Geom, GeomPolygon$draw_panel(box, panel_params, coord, lineend = lineend, linejoin = linejoin), GeomSegment$draw_panel(middle, panel_params, coord, lineend = lineend, linejoin = linejoin) ))) - } + }, + + rename_size = TRUE ) diff --git a/R/geom-pointrange.r b/R/geom-pointrange.r index 9209f69d1b..714feb9063 100644 --- a/R/geom-pointrange.r +++ b/R/geom-pointrange.r @@ -57,5 +57,7 @@ GeomPointrange <- ggproto("GeomPointrange", Geom, GeomPoint$draw_panel(transform(data, size = size * fatten), panel_params, coord) )) ) - } + }, + + rename_size = TRUE ) diff --git a/R/geom-sf.R b/R/geom-sf.R index 593ba18764..2489180d56 100644 --- a/R/geom-sf.R +++ b/R/geom-sf.R @@ -149,7 +149,9 @@ GeomSf <- ggproto("GeomSf", Geom, } else { draw_key_polygon(data, params, size) } - } + }, + + rename_size = TRUE ) default_aesthetics <- function(type) { diff --git a/R/geom-smooth.r b/R/geom-smooth.r index 6a4c735d44..0c599fdca9 100644 --- a/R/geom-smooth.r +++ b/R/geom-smooth.r @@ -160,5 +160,7 @@ GeomSmooth <- ggproto("GeomSmooth", Geom, optional_aes = c("ymin", "ymax"), default_aes = aes(colour = "#3366FF", fill = "grey60", linewidth = 1, - linetype = 1, weight = 1, alpha = 0.4) + linetype = 1, weight = 1, alpha = 0.4), + + rename_size = TRUE )