geom_histogram 没有台阶的彩色尾巴

Question

有一个分布，我喜欢给从特定值到最后的长尾着色。当我将 geom_histogram 和 aes(fill) 与 0-1-varibale 一起使用时，我得到了一个步骤。

有什么预防方法吗？

示例：

set.seed(2713)
df <- data.frame(var_a = rnorm(n = 1000, mean = 10, sd = 2))
df2 <- data.frame(x = 12, y = 13)

ggplot() +
  geom_histogram(data = df, aes(var_a, fill = var_a > 12)) +
  geom_point(data = df2, aes(x = x, y = y), shape = 1, size = 15)

Answer 1

在层的统计部分将数据与 after_stat() 装箱后，您可以应用相同的逻辑。

library(ggplot2)

set.seed(2713)
df <- data.frame(var_a = rnorm(n = 1000, mean = 10, sd = 2))
df2 <- data.frame(x = 12, y = 13)

ggplot() +
  geom_histogram(data = df, 
                 aes(var_a, fill = after_stat(x > 12)))
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

^{由 reprex package (v1.0.0)}

创建于 2021-06-09

geom_histogram 没有台阶的彩色尾巴

Coloured tail with geom_histogram without a step

r

distribution

ggplot2