work with fill too

teunbrand · Apr 27, 2024 · a5e0975 · a5e0975
1 parent 96822fa
commit a5e0975
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/guide_colour_ring.R b/R/guide_colour_ring.R
@@ -221,7 +221,7 @@ GuideColourRing <- ggproto(
     x <- unit(x, "npc") - unit(sin(theta) * r, "cm")
     y <- unit(y, "npc") - unit(cos(theta) * r, "cm")
 
-    colour <- params$key$colour
+    colour <- params$key[[params$aesthetic]]
     ring <- polygonGrob(
       x = x, y = y, id.lengths = rep(4, nrow(params$key)),
       gp = gpar(fill = colour, col = colour, lwd = 1),