r - 修改 ggplot 中的 viridis 调色板

Question

我试图通过一个主要是数字的因素为 ggplot 着色，如下所示:

iris %>%
  ggplot(aes(Sepal.Length, Sepal.Width, color = cut(Petal.Length, 0:7))) + 
  geom_point() + 
  scale_color_viridis_d()

我想做的是特殊情况 (0,1]值和颜色为红色，但保留其余值的 viridis 渐变。我知道我可以 change the color on the fly但我想知道是否也可以构建一个新的离散调色板，它的第一个颜色是红色，然后是渐变，这将使代码更具可重用性。

因此，更普遍的问题是: 可以轻松添加/删除/编辑现有离散调色板中的颜色吗？

Answer 1

这与@seasmith 的答案基本相同，除了将调色板保存到变量以供以后使用。我经常这样做是为了明确设置 NA颜色，然后在多个图上使用调色板。

其他包与 viridis 的功能类似那些:例如，您可以从 RColorBrewer::brewer.pal 获得 ColorBrewer 调色板, CartoColor 调色板来自 rcartocolor::carto_pal ，或任何 ggthemes来自与调色板同名的函数。

library(tidyverse)

plasma_pal <- c("red", viridis::plasma(n = 6))

plasma_pal
#> [1] "red"       "#0D0887FF" "#6A00A8FF" "#B12A90FF" "#E16462FF" "#FCA636FF"
#> [7] "#F0F921FF"

iris %>%
    ggplot(aes(Sepal.Length, Sepal.Width, color = cut(Petal.Length, 0:7))) + 
    geom_point() +
    scale_color_manual(values = plasma_pal)

创建于 2018-04-19 由 reprex package (v0.2.0)。