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

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"))

_{这是照片处理过的，抱歉！我不想创建箭头，只是带有分隔符而不是刻度的连续刻度}

最终目标是将彩条重现为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

ggplot v3.3.0 中引入的可扩展指南系统肯定有一个选项。请参见下面的示例：

library(ggplot2)

guide_longticks <- function(...) {
  guide <- guide_colorbar(...)
  class(guide) <- c("guide", "guide_longticks", "colorbar")
  guide
}

guide_gengrob.guide_longticks <- function(guide, theme) {
  dir <- guide$direction
  guide <- NextMethod()
  is_ticks <- grep("^ticks$", guide$layout$name)
  ticks <- guide$grobs[is_ticks][[1]]
  if (dir == "vertical") {
    ticks$x1 <- rep(tail(ticks$x1, 1), length(ticks$x1))
  } else {
    ticks$y1 <- rep(tail(ticks$y1, 1), length(ticks$y1))
  }
  
  guide$grobs[[is_ticks]] <- ticks
  guide
}

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

^{由reprex package (v0.3.0) 于 2020 年 6 月 24 日创建}

编辑：

如果你想在刻度之间使用平面颜色，也可以试试这个替代构造函数：

guide_longticks <- function(...) {
  guide <- guide_colorsteps(...)
  class(guide) <- c("guide", "guide_longticks", "colorsteps", "colorbar")
  guide
}

EDIT2：

如果您想要更清晰的矢量文件，以下 gengrob 函数也会删除较小的刻度。它有点假设它们是刻度的后半部分：

guide_gengrob.guide_longticks <- function(guide, theme) {
  dir <- guide$direction
  guide <- NextMethod()
  is_ticks <- grep("^ticks$", guide$layout$name)
  ticks <- guide$grobs[is_ticks][[1]]
  n <- length(ticks$x0)
  if (dir == "vertical") {
    ticks$x0 <- head(ticks$x0, n/2)
    ticks$x1 <- rep(tail(ticks$x1, 1), n/2)
  } else {
    ticks$y0 <- head(ticks$y0, n/2)
    ticks$y1 <- rep(tail(ticks$y1, 1), n/2)
  }
  
  guide$grobs[[is_ticks]] <- ticks
  guide
}

Answer 2

肯定有一个快速的网格破解 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)

^{由reprex package (v0.3.0) 于 2020 年 6 月 24 日创建}