test label and tweak default params

Author: sean-connelly-cmap

R/geom_text_lastonly_new.R

@@ -229,9 +229,9 @@ GeomTextLastNew <- ggproto(
   required_aes = c("x", "y"),
 
   default_aes = aes(
-    colour = "black", size = 3.88, angle = 0,
+    colour = "black", size = 3.88, angle = 0, label = NA,
     alpha = NA, family = "", fontface = 1, lineheight = 1.2,
-    hjust = 0.5, vjust = 0.5, point.size = 1,
+    hjust = 0, vjust = 0.5, point.size = 1,
     segment.linetype = 1, segment.colour = NULL, segment.size = 0.5, segment.alpha = NULL,
     segment.curvature = 0, segment.angle = 90, segment.ncp = 1,
     segment.shape = 0.5, segment.square = TRUE, segment.squareShape = 1,
@@ -258,7 +258,7 @@ GeomTextLastNew <- ggproto(
     nudge_y = 0,
     xlim = c(NA, NA),
     ylim = c(NA, NA),
-    direction = "both",
+    direction = "y",
     seed = NA,
     verbose = FALSE
   ) {
@@ -347,6 +347,7 @@ GeomTextLastNew <- ggproto(
       verbose = verbose,
       cl = "textlastrepel"
     ))
+
   },
 
   draw_key = draw_key_text
@@ -384,9 +385,10 @@ makeContent.textlastrepel <- function(x) {
       hjust = row$hjust,
       vjust = row$vjust,
       gp = gpar(
-        fontsize   = row$size * .pt,
+        col = alpha(row$colour, row$alpha),
+        fontsize = row$size * .pt,
         fontfamily = row$family,
-        fontface   = row$fontface,
+        fontface = row$fontface,
         lineheight = row$lineheight
       )
     )