如何在ggplot管道中基于衍生数据列设置连续颜色刻度？

可以通过用大括号{}包裹整个ggplot代码块的方式，在管道中直接访问处理后的数据集，从而获取新生成的ee列的第一四分位数，无需创建中间变量：

library(tibble)
library(ggplot2)
library(scales)
library(dplyr)

dd <- tibble(aa=runif(50),bb=runif(50),cc=runif(50))

dd %>% mutate(ee=aa/cc) %>%
{ggplot(., aes(x=aa, y=bb, colour=ee)) +
    geom_point() +
    scale_colour_gradientn(
      colours = c("blue", "red", "blue"),
      values = scales::rescale(c(0, quantile(.$ee, 0.25), 1))
    )}

原理说明 #

• 管道%>%默认会把上游数据传给下一个函数的第一个参数，但当后续是ggplot()加+的链式调用时，直接编写代码的话，scale_colour_gradientn无法直接访问上游处理后的数据集。
• 用大括号{}包裹整个ggplot代码块后，我们可以用.来指代管道上游传递过来的、已经添加了ee列的数据集，因此quantile(.$ee, 0.25)可以正确提取到ee的第一四分位数。

你也可以使用.data代词让代码更清晰（需依赖dplyr）：

dd %>% mutate(ee=aa/cc) %>%
{ggplot(., aes(x=aa, y=bb, colour=ee)) +
    geom_point() +
    scale_colour_gradientn(
      colours = c("blue", "red", "blue"),
      values = scales::rescale(c(0, quantile(.data$ee, 0.25), 1))
    )}

内容的提问来源于stack exchange，提问作者jfmoyen