I want to change my continuous color legend by adding manual label names (Low and High) for values at the bottom and top of the scale bar. How can I do this?
x <- 1:100
y <- runif(100) * 100
tib <- tibble(x, y)
ggplot(tib, aes(x = x, y = y, color = y)) +
geom_point() +
binned_scale(aesthetics = "color",
scale_name = "stepsn",
palette = function(x) c("red", "yellow", "green", "yellow", "red"),
breaks = c(5, 10, 25, 60),
limits = c(0, 100),
show.limits = TRUE,
guide = "colorsteps")
Intended output:

I tried to adding labels = c("Low", 5, 10, 25, 60, "High") in the script but it showed this error:
Error in f():
! Breaks and labels are different lengths
Run rlang::last_error() to see where the error occurred.

