diff --git a/R/ColorBar.R b/R/ColorBar.R
index eb01a9ae799e1812b8b06272df1dab42d21eff70..4f92a2a159e9ba504a14a955270f240e338a95be 100644
--- a/R/ColorBar.R
+++ b/R/ColorBar.R
@@ -77,9 +77,10 @@ ColorBar <- function(brks = NULL, cols = NULL, vertical = TRUE,
       brks <- seq(bar_limits[1], bar_limits[2], length.out = brks)
     } else if (is.null(var_limits)) {
       # bar_limits is defined
-      brks <- seq(bar_limits[1], bar_limits[2], length.out = brks)
       var_limits <- bar_limits
-      var_limits[1] <- var_limits[1] + .Machine$double.xmin
+      half_width <- 0.5 * (var_limits[2] - var_limits[1]) / (brks - 1)  
+      brks <- seq(bar_limits[1], bar_limits[2], length.out = brks)
+      var_limits[1] <- var_limits[1] + half_width / 50
     } else {
       # both bar_limits and var_limits are defined
       brks <- seq(bar_limits[1], bar_limits[2], length.out = brks)
@@ -89,7 +90,8 @@ ColorBar <- function(brks = NULL, cols = NULL, vertical = TRUE,
       # brks is defined
       bar_limits <- c(head(brks, 1), tail(brks, 1))
       var_limits <- bar_limits
-      var_limits[1] <- var_limits[1] + .Machine$double.xmin
+      half_width <- 0.5 * (var_limits[2] - var_limits[1]) / (length(brks) - 1)  
+      var_limits[1] <- var_limits[1] + half_width / 50
     } else {
       # brks and var_limits are defined
       bar_limits <- c(head(brks, 1), tail(brks, 1))