tidyverse · teunbrand · Oct 3, 2025 · Oct 3, 2025
diff --git a/NEWS.md b/NEWS.md
@@ -2,6 +2,8 @@
 
 ### Bug fixes
 
+* Using infinite `radius` aesthetic in `geom_spoke()` now throws a warning 
+  (#6671)
 * Fixed regression where `draw_key_rect()` stopped using `fill` colours 
   (@mitchelloharawild, #6609).
 * Fixed regression where `scale_{x,y}_*()` threw an error when an expression

diff --git a/R/geom-spoke.R b/R/geom-spoke.R
@@ -8,6 +8,10 @@ GeomSpoke <- ggproto(
     data$radius <- data$radius %||% params$radius
     data$angle <- data$angle %||% params$angle
 
+    if (any(is.infinite(data$radius))) {
+      cli::cli_warn("Infinite {.field radius} values are unreliable.")
+    }
+
     transform(data,
               xend = x + cos(angle) * radius,
               yend = y + sin(angle) * radius

diff --git a/tests/testthat/_snaps/geom-spoke.md b/tests/testthat/_snaps/geom-spoke.md
@@ -0,0 +1,4 @@
+# geom_spoke warns about infinite radius (#6671)
+
+    Infinite radius values are unreliable.
+
diff --git a/tests/testthat/test-geom-spoke.R b/tests/testthat/test-geom-spoke.R
@@ -0,0 +1,4 @@
+test_that("geom_spoke warns about infinite radius (#6671)", {
+  p <- ggplot() + geom_spoke(aes(0, 0, angle = pi / 4, radius = Inf))
+  expect_snapshot_warning(ggplot_build(p))
+})
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,4 @@
		# geom_spoke warns about infinite radius (#6671)

		Infinite radius values are unreliable.