r - 带有分隔符而不是刻度的连续颜色条

Question

图片应该很好地说明了我想要实现的目标。理想情况下，生成的颜色条应保持连续性，即应该基于连续而不是离散的美学，或者至少非常接近于表现得如此。
这也意味着，不仅仅是将离散填充的图例键靠得足够近的简单方法。
Yes, I could create a fake legend ，但我想要一个在图例绘图级别进行修改的解决方案。
我也会对有趣的网格黑客感到非常满意!

library(ggplot2)

ggplot(iris, aes(Sepal.Length, y = Sepal.Width, fill = Petal.Length))+
  geom_point(shape = 21) +
  scale_fill_continuous() +
  guides(fill = guide_colorbar(ticks.colour = "black"))

那是photoshopped，道歉!我不想创建箭头，只是使用分隔符而不是刻度的连续比例

最终目标是将颜色条重现为 orignially proposed in this thread

然而，这不是关于创建离散梯度条，这只是关于分隔符!
离散梯度条不是问题，已经有解决方案(例如， https://stackoverflow.com/a/62544405/7941188 、 https://stackoverflow.com/a/62556763/7941188 、 https://stackoverflow.com/a/50540633/7941188 )

Answer 1

肯定有一个快速的网格黑客 Tjebo，但它可能需要一些工作才能使其健壮(按名称而不是按数字索引):

library(ggplot2)
library(grid)

p <- ggplot(iris, aes(Sepal.Length, y = Sepal.Width, fill = Petal.Length))+
  geom_point(shape = 21) +
  scale_fill_continuous() +
  guides(fill = guide_colorbar(ticks.colour = "black"))

gt <- ggplot_gtable(ggplot_build(p))

x1 <- gt$grobs[[which(gt$layout$name == "guide-box")]]$grobs[[1]]$grobs[[5]]$x1
x1[1:7] <- x1[8:14]
gt$grobs[[which(gt$layout$name == "guide-box")]]$grobs[[1]]$grobs[[5]]$x1 <- x1
grid.newpage()
grid.draw(gt)

创建于 2020-06-24 由 reprex package (v0.3.0)