boilerplate geom_text()

Author: teunbrand

R/geom-text.R

@@ -1,3 +1,55 @@
+#' @rdname ggplot2-ggproto
+#' @format NULL
+#' @usage NULL
+#' @export
+GeomText <- ggproto(
+  "GeomText", Geom,
+  required_aes = c("x", "y", "label"),
+
+  non_missing_aes = "angle",
+
+  default_aes = aes(
+    colour = from_theme(colour %||% ink),
+    family = from_theme(family),
+    size = from_theme(fontsize),
+    angle = 0, hjust = 0.5,
+    vjust = 0.5, alpha = NA, fontface = 1, lineheight = 1.2
+  ),
+
+  draw_panel = function(data, panel_params, coord, parse = FALSE,
+                        na.rm = FALSE, check_overlap = FALSE,
+                        size.unit = "mm") {
+    lab <- data$label
+    if (parse) {
+      lab <- parse_safe(as.character(lab))
+    }
+
+    data <- coord$transform(data, panel_params)
+
+    data$vjust <- compute_just(data$vjust, data$y, data$x, data$angle)
+    data$hjust <- compute_just(data$hjust, data$x, data$y, data$angle)
+
+    size.unit <- resolve_text_unit(size.unit)
+
+    textGrob(
+      lab,
+      data$x, data$y, default.units = "native",
+      hjust = data$hjust, vjust = data$vjust,
+      rot = data$angle,
+      gp = gg_par(
+        col = alpha(data$colour, data$alpha),
+        fontsize = data$size * size.unit,
+        fontfamily = data$family,
+        fontface = data$fontface,
+        lineheight = data$lineheight
+      ),
+      check.overlap = check_overlap
+    )
+  },
+
+  draw_key = draw_key_text
+)
+
 #' Text
 #'
 #' Text geoms are useful for labeling plots. They can be used by themselves as
@@ -152,84 +204,7 @@
 #' ggplot(df, aes(x, y)) +
 #'   geom_text(aes(label = text), vjust = "inward", hjust = "inward")
 #' }
-geom_text <- function(mapping = NULL, data = NULL,
-                      stat = "identity", position = "nudge",
-                      ...,
-                      parse = FALSE,
-                      check_overlap = FALSE,
-                      size.unit = "mm",
-                      na.rm = FALSE,
-                      show.legend = NA,
-                      inherit.aes = TRUE)
-{
-  layer(
-    data = data,
-    mapping = mapping,
-    stat = stat,
-    geom = GeomText,
-    position = position,
-    show.legend = show.legend,
-    inherit.aes = inherit.aes,
-    params = list2(
-      parse = parse,
-      check_overlap = check_overlap,
-      size.unit = size.unit,
-      na.rm = na.rm,
-      ...
-    )
-  )
-}
-
-#' @rdname ggplot2-ggproto
-#' @format NULL
-#' @usage NULL
-#' @export
-GeomText <- ggproto("GeomText", Geom,
-  required_aes = c("x", "y", "label"),
-
-  non_missing_aes = "angle",
-
-  default_aes = aes(
-    colour = from_theme(colour %||% ink),
-    family = from_theme(family),
-    size = from_theme(fontsize),
-    angle = 0, hjust = 0.5,
-    vjust = 0.5, alpha = NA, fontface = 1, lineheight = 1.2
-  ),
-
-  draw_panel = function(data, panel_params, coord, parse = FALSE,
-                        na.rm = FALSE, check_overlap = FALSE,
-                        size.unit = "mm") {
-    lab <- data$label
-    if (parse) {
-      lab <- parse_safe(as.character(lab))
-    }
-
-    data <- coord$transform(data, panel_params)
-
-    data$vjust <- compute_just(data$vjust, data$y, data$x, data$angle)
-    data$hjust <- compute_just(data$hjust, data$x, data$y, data$angle)
-
-    size.unit <- resolve_text_unit(size.unit)
-
-    textGrob(
-      lab,
-      data$x, data$y, default.units = "native",
-      hjust = data$hjust, vjust = data$vjust,
-      rot = data$angle,
-      gp = gg_par(
-        col = alpha(data$colour, data$alpha),
-        fontsize = data$size * size.unit,
-        fontfamily = data$family,
-        fontface = data$fontface,
-        lineheight = data$lineheight
-      ),
-      check.overlap = check_overlap
-    )
-  },
-
-  draw_key = draw_key_text
-)
+geom_text <- make_constructor(GeomText, position = "nudge")
 
 compute_just <- function(just, a = 0.5, b = a, angle = 0) {
   if (!is.character(just)) {