Justify axis agnostic of label presence (#6590)

* justify axis agnostic of label presence

* add news bullet

Author: teunbrand

NEWS.md

@@ -24,6 +24,7 @@
   legend glyphs (@teunbrand, #6594)
 * Fixed regression where `NULL`-aesthetics contributed to plot labels too 
   insistently. Now they contribute only as fallback labels (@teunbrand, #6616)
+* Fixed axis misplacement in `coor_radial()` when labels are blank (@teunbrand, #6574)
 
 # ggplot2 4.0.0
 

R/guide-axis.R

@@ -424,7 +424,6 @@ GuideAxis <- ggproto(
     # Unlist the 'label' grobs
     z <- if (params$position == "left") c(2, 1, 3) else 1:3
     z <- rep(z, c(1, length(grobs$labels), 1))
-    has_labels <- !is_zero(grobs$labels[[1]])
     grobs  <- c(list(grobs$ticks), grobs$labels, list(grobs$title))
 
     # Initialise empty gtable
@@ -452,13 +451,13 @@ GuideAxis <- ggproto(
 
     # Add null-unit padding to justify based on eventual gtable cell shape
     # rather than dimensions of this axis alone.
-    if (has_labels && params$position %in% c("left", "right")) {
+    if (params$position %in% c("left", "right")) {
       where <- layout$l[-c(1, length(layout$l))]
       just <- rotate_just(element = elements$text)$hjust %||% 0.5
       gt <- gtable_add_cols(gt, unit(just, "null"), pos = min(where) - 1)
       gt <- gtable_add_cols(gt, unit(1 - just, "null"), pos = max(where) + 1)
     }
-    if (has_labels && params$position %in% c("top", "bottom")) {
+    if (params$position %in% c("top", "bottom")) {
       where <- layout$t[-c(1, length(layout$t))]
       just <- rotate_just(element = elements$text)$vjust %||% 0.5
       gt <- gtable_add_rows(gt, unit(1 - just, "null"), pos = min(where) - 1)