是否可以轻松地使 ggplot 去饱和？

Question

是否可以轻松地将ggplot 去饱和？

---

原则上，可能有两种可能的策略。
首先，将一些函数应用于ggplot 对象（或者，可能是Grob 对象）以使所有颜色去饱和。其次，在渲染.rmd 文件时打印ggplot 去饱和的一些技巧。这两种策略对我来说都可以，但第一个当然更有希望。
从一开始就以灰色创建ggplot 并不是一个好的选择，因为这样做的目的是让情节与以灰色阴影打印的情节相同。

---

关于如何在 R 中进行去饱和，有一些类似的问题和非常好的答案。Here 是一种方便的方法来去饱和调色板。而here 是对光栅图像去饱和的方法。我正在寻找的是一种使整个ggplot 去饱和的简单方法。

Answer 1

刚刚遇到这个问题。实验包 colorblindr（由 Claire McWhite 和我自己编写）包含一个可以以通用方式执行此操作的函数。我正在使用来自@hrbrmstr 的示例图：

library(ggplot2)
library(viridis)

gg <- ggplot(mtcars) + 
  geom_point(aes(x=mpg, y=wt, fill=factor(cyl), size=factor(carb)), 
             color="black", shape=21) + 
  scale_fill_viridis(discrete = TRUE) +
  scale_size_manual(values = c(3, 6, 9, 12, 15, 18)) +
  facet_wrap(~am)
gg

现在让我们使用 colorblindr 中的 edit_colors() 函数对该图进行去饱和处理：

library(colorblindr) # devtools::install_github("clauswilke/colorblindr")
library(colorspace) # install.packages("colorspace", repos = "http://R-Forge.R-project.org") --- colorblindr requires the development version
# need also install cowplot; current version on CRAN is fine.

gg_des <- edit_colors(gg, desaturate)
cowplot::ggdraw(gg_des)

edit_colors() 函数接受一个 ggplot2 对象或 grob，并将颜色转换函数（此处为 desaturate）应用于 grob 中的所有颜色。

我们可以为转换函数提供额外的参数，例如进行部分去饱和：

gg_des <- edit_colors(gg, desaturate, amount = 0.7)
cowplot::ggdraw(gg_des)

我们还可以进行其他转换，例如色盲模拟：

gg_des <- edit_colors(gg, deutan)
cowplot::ggdraw(gg_des)

最后，我们可以分别操作线条颜色和填充颜色。例如，我们可以将所有填充区域设为蓝色。 （不确定这是否有用，但无论如何。）

gg_des <- edit_colors(gg, fillfun = function(x) "lightblue")
cowplot::ggdraw(gg_des)

Answer 2

根据我上面的评论，这可能是实现ggplot2 对象去饱和的最快/最脏的方法：

library(ggplot2)

set.seed(1)
p <- qplot(rnorm(50), rnorm(50), col="Class")
print(p)

pdf(file="p.pdf", colormodel="grey")
  print(p)
dev.off()

Answer 3

我用新的 viridis 调色板尝试了这个，因为它可以很好地去饱和（即在彩色和非彩色图之间应该很明显）：

library(ggplot2)
library(grid)
library(colorspace)
library(viridis) # devtools::install_github("sjmgarnier/viridis") for scale_fill_viridis

gg <- ggplot(mtcars) + 
  geom_point(aes(x=mpg, y=wt, fill=factor(cyl), size=factor(carb)), 
             color="black", shape=21) + 
  scale_fill_viridis(discrete = TRUE) +
  scale_size_manual(values = c(3, 6, 9, 12, 15, 18)) +
  facet_wrap(~am)

gb <- ggplot_build(gg)
gb$data[[1]]$colour <- desaturate(gb$data[[1]]$colour)
gb$data[[1]]$fill <- desaturate(gb$data[[1]]$fill)

gt <- ggplot_gtable(gb)

grid.newpage()
grid.draw(gt)

您最终不得不在 grob 级别上进行操作。

这是预去饱和的情节：

这是去饱和后的情节：

我试图弄清楚为什么这个图例被跳过了，这可能会错过其他高度定制的 ggplot 美学和组件，所以即使它不是一个完整的答案，也许它可能有用（也许其他人可以附加到它或在另一个答案中扩展它）。只需替换gb 对象或gt 对象中的正确位即可。

更新我设法为图例找到了正确的 grob 元素：

gt$grobs[[12]][[1]][["99_9c27fc5147adbe9a3bdf887b25d29587"]]$grobs[[4]]$gp$fill <- 
    desaturate(gt$grobs[[12]][[1]][["99_9c27fc5147adbe9a3bdf887b25d29587"]]$grobs[[4]]$gp$fill)
gt$grobs[[12]][[1]][["99_9c27fc5147adbe9a3bdf887b25d29587"]]$grobs[[6]]$gp$fill <- 
    desaturate(gt$grobs[[12]][[1]][["99_9c27fc5147adbe9a3bdf887b25d29587"]]$grobs[[6]]$gp$fill)
gt$grobs[[12]][[1]][["99_9c27fc5147adbe9a3bdf887b25d29587"]]$grobs[[8]]$gp$fill <- 
    desaturate(gt$grobs[[12]][[1]][["99_9c27fc5147adbe9a3bdf887b25d29587"]]$grobs[[8]]$gp$fill)

grid.newpage()
grid.draw(gt)

寻找其他需要去饱和的gp 元素的方法也不错。