r - 値に基づく 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")))