Bubble legend: drop smallest category if zero

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: tinyplot
 Type: Package
 Title: Lightweight Extension of the Base R Graphics System
-Version: 0.5.0
+Version: 0.5.0.99
 Date: 2025-09-21
 Authors@R: 
   c(

NEWS.md

@@ -4,6 +4,15 @@ _If you are viewing this file on CRAN, please check the
 [latest NEWS](https://grantmcdermott.com/tinyplot/NEWS.html) on our website
 where the formatting is also better._
 
+## Dev version
+
+### Bug fixes
+
+- For bubble plots, we now drop the minimum legend category (label) if it is
+  equal to 0. The previous behaviour was just an artifact of the `pretty` breaks
+  algorithm that we use to create discrete legend categories. The interior plot
+  elements, e.g. bubble points, are unaffected. (#498 @grantmcdermott)
+
 ## 0.5.0
 
 ### New features

R/type_points.R

@@ -72,6 +72,11 @@ data_points = function(clim = c(0.5, 2.5)) {
       cex = rescale_num(sqrt(c(bubble_labs, cex))/pi, to = clim)
       bubble_cex = cex[1:len_labs]
       cex = cex[(len_labs+1):length(cex)]
+      # catch for cases where pretty breaks leads to smallest category of 0
+      if (bubble_labs[1] == 0) {
+        bubble_labs = bubble_labs[-1]
+        bubble_cex = bubble_cex[-1]
+      }
       names(bubble_cex) = format(bubble_labs)
       if (max(clim) > 2.5) {
         legend_args[["x.intersp"]] = max(clim) / 2.5

R/type_text.R

@@ -66,6 +66,11 @@ data_text = function(labels, clim = c(0.5, 2.5)) {
       cex = rescale_num(sqrt(c(bubble_labs, cex)) / pi, to = clim)
       bubble_cex = cex[1:len_labs]
       cex = cex[(len_labs + 1):length(cex)]
+      # catch for cases where pretty breaks leads to smallest category of 0
+      if (bubble_labs[1] == 0) {
+        bubble_labs = bubble_labs[-1]
+        bubble_cex = bubble_cex[-1]
+      }
       names(bubble_cex) = format(bubble_labs)
       if (max(clim) > 2.5) {
         legend_args[["x.intersp"]] = max(clim) / 2.5