使用stat_summary将ggplot转换为灰度

如何解决使用stat_summary将ggplot转换为灰度

我有一个R包作为GUI（JASP）的后端引擎。我希望能够使人们将其图像转换为灰度（用于出版物印刷）。对于大多数绘图，我可以使用fetch_nodes，但是当在stats_summary中指定颜色时，该方法不起作用。例如：

scale_colour_grey()

经过研究，我了解到您可以剖析ggplot对象，然后重建它：

# simulate data
set.seed(1212)
y = rnorm(100)
g = sample(c("a","b"),100,T)
d = data.frame(y=y,g=g)

### create ggplot
plot = ggplot(data=d,aes(x=g,y=y)) +
  geom_jitter() + 
  stat_summary(fun="mean",geom="point",size=3,color="red") +
  stat_summary(geom="errorbar",color="red") +
  theme_bw()

### converting to greyscale doesn't work
plot + scale_colour_grey()

那很好，但是我尝试在我的R包中包括尽可能少的依赖项。我真的必须借助另一个软件包（ggplotify）来修改stat_summary的颜色吗？

一些注意事项：我不想修改原始的stat_summary语句。让我们假装无法修改。另外，假设我无法添加其他软件包（除了已加载的ggplot2）。记住，我是JASP框架中的“来宾”，我不想在必须存储的软件包列表中添加另一个软件包。

解决方法

实际上，您可以在构建ggplot对象之前到达它，进入具有彩色对象的图层并进行更改。这是完整的说明：

library(ggplot2)

#  simulate data
set.seed(1212)
y = rnorm(100)
g = sample(c("a","b"),100,T)
d = data.frame(y=y,g=g)

### create ggplot
p <- ggplot(data=d,aes(x=g,y=y)) +
  geom_jitter() + 
  stat_summary(fun="mean",geom="point",size=3,color="red") +
  stat_summary(geom="errorbar",color="red") +
  theme_bw()

p 

p$layers[[3]]$aes_params$colour <-  "gray50"

p

如果您想采用更通用的方法来更改特定几何图形的颜色，则可以执行以下功能：

recolour_geom <- function(gg_plot,geom,colour = "gray50")
{
  ss <- which(sapply(p$layers,function(l) {
                       paste(gsub("GEOM|GG|PROTO","",toupper(class(l$geom))),collapse = "")}) %in% toupper(geom))
  
  if (length(ss) > 0)
  {
    for (i in ss)
    {
      p$layers[[i]]$aes_params$colour <- colour
    }
  }
  p
}

例如，哪个可以做

recolour_geom(p,"errorbar","blue")
recolour_geom(p,"point","green")

请注意，尽管这会通过引用更改ggplot，所以p会作为函数的副作用而更改。

^{由reprex package（v0.3.0）于2020-08-14创建}