基于值的Geom_jitter颜色

Question

是否有一种方法可以根据数值对箱线图上的抖动点进行着色，例如：

ggplot(data, aes(y = y_var, x = x_var)) +
  geom_jitter(size = 2, aes(color = ifelse(y_var < 5, "red", "black)))

我添加了这个不太起作用的可重现示例(绘图上的颜色与抖动调用不对应)：

a <- rnorm(100, mean = 5, sd = 1)
b <- as.factor(sample(0:1, 100, replace = TRUE))
test_data <- data.frame(cbind(a,b))
test_data$b <- as.factor(test_data$b)

ggplot(test_data, aes(y = a, x = b)) + 
  geom_boxplot()+
  geom_jitter(aes(color = ifelse(a < 5, "red", "black")))

​

​

Answer 1

像这样列出geom中的颜色名称并不会告诉色标要使用什么颜色-它只是将值分成几个类别。字符串"red"或"black"在那里不一定有任何意义。如果你想在geom中分配颜色，给出你正在使用的颜色名称或十六进制代码，然后添加scale_color_identity，这样就会有一个指示，"red"实际上意味着“让这有一个红色”，等等。

library(tidyverse)

ggplot(test_data, aes(y = a, x = b)) +
  geom_boxplot() +
  geom_jitter(aes(color = ifelse(a < 5, "red", "black"))) +
  scale_color_identity()

​

​

更好的(更具可扩展性和可维护性)是关注点分离:让let处理创建几何图形和映射到scales上，让scales处理设置scales的外观。您可以使用a < 5作为变量(某种代理变量，因为它不在您的数据框中)，它将接受true或false值。然后使用色标(如scale_color_manual )根据真值或假值设置颜色。

ggplot(test_data, aes(y = a, x = b)) +
  geom_boxplot() +
  geom_jitter(aes(color = a < 5)) +
  scale_color_manual(values = c("TRUE" = "red", "FALSE" = "black"))

​

​

由reprex package创建于2018-07-03 (v0.2.0)。