如何避免选择类似的颜色以进行填充和颜色尺度？

Question

上下文：我想在同一绘图中使用 viridis 调色板作为色标和填充比例。我使用的几何图形并不都有 color 或 fill 参数，因此不可能将所有内容“混合”到一个比例中。换句话说，我想使用相同的调色板，但确保该调色板中的每种颜色仅跨比例使用一次，同时保持 viridis 调色板的属性（打印和色盲友好）。

问题：当使用scale_color_viridis_d()和scale_fill_viridis_d()时，我最终会在填充和色阶之间共享颜色，这使得最终的结果情节难以阅读。

问题：是否可以告诉 ggplot 在 vi​​ridis 调色板中跨填充和色阶选择不同的颜色？

library(ggplot2)
# example dataset
zones <- data.frame(starts = c(1, 3, 4),
                    ends = c(2, 3.75, 5),
                    item = rep("A", 3))
# current plot, note that the same color from viridis scale is picked
ggplot(data = zones) +
  geom_rect(aes(xmin = starts, xmax = ends, ymin = -Inf, ymax = Inf, fill = "areas")) +
  geom_segment(aes(x = starts, xend = ends, y = item, yend = item, color = "segments")) +
  scale_color_viridis_d() +
  scale_fill_viridis_d(alpha = 0.5)

预期输出：来自同一调色板的不同颜色用于填充和色阶。在这里，我使用了来自 scale_*_viridis_d() 函数的 begin = 和 end = 参数，但我觉得这不是最佳选择，因为许多颜色都是“像这样分割调色板就丢失了”。

# look of the expected output
ggplot(data = zones) +
  geom_rect(aes(xmin = starts, xmax = ends, ymin = -Inf, ymax = Inf, fill = "areas")) +
  geom_segment(aes(x = starts, xend = ends, y = item, yend = item, color = "segments")) +
  scale_color_viridis_d(begin = 0.5, end = 1) +
  scale_fill_viridis_d(alpha = 0.5, begin = 0, end = 0.49)

[编辑] 我使用 scale_fill_viridis_d() 的 aesthetics 和 guide 参数更近了一步，但它弄乱了图例：

ggplot(data = zones) +
  geom_rect(aes(xmin = starts, xmax = ends, ymin = -Inf, ymax = Inf, fill = "areas")) +
  geom_segment(aes(x = starts, xend = ends, y = item, yend = item, color = "segments")) +
  # scale_color_viridis_d() +
  scale_fill_viridis_d(alpha = 0.5, 
                       aesthetics = c("color", "fill"), 
                       guide = guide_legend("Highlights")) 

^{由 reprex 包 (v2.0.1)}

Answer 1

我想最简单的方法是以相反的顺序获得 viridis 颜色。通常它是从深紫色到黄色，使用direction = -1参数，我们可以让它从黄色到深紫色。

library(ggplot2)
zones <- data.frame(starts = c(1, 3, 4),
                    ends = c(2, 3.75, 5),
                    item = rep("A", 3))

ggplot(data = zones) +
  geom_rect(aes(xmin = starts, xmax = ends, ymin = -Inf, ymax = Inf, fill = "areas")) +
  geom_segment(aes(x = starts, xend = ends, y = item, yend = item, color = "segments")) +
  scale_color_viridis_d(direction = -1) +
  scale_fill_viridis_d(alpha = 0.5)

^{由 reprex 包 (v2.0.1)}