окраска сегментов кривой при использовании stat_function в ggplot

Question

У меня есть график z-кривой, и мы использовали geom_segment для цветных областей под кривой.

я график распределения г с использованием

p <- ggplot(data.frame(x = c(-3, 3)), aes(x)) + stat_function(fun = dnorm) 

Я хотел бы, чтобы цвет сегменты кривой так, что цвет кривой совпадает с цветом на оси х под ним ,

Поскольку я использую stat_function, я чувствую, что есть возможность изменить его характеристики.

Неужели кто-то пытался подобный подвиг и нашел способ сделать это?

Answer 1

dnorm_segment <- function(x, min = 0, max = 1) dnorm(x)*ifelse(x>=min & x<=max, 1, NA) 
zero_segment <- function(x, min = 0, max = 1) ifelse(x>=min & x<=max, 0, NA) 
plot_both <- function(min, max, colour) 
{ 
    args <- list(min = min, max = max) 
    list(
    stat_function(fun = dnorm_segment, col = colour, size = 3, args = args, n = 1001), 
    stat_function(fun = zero_segment, col = colour, size = 3, args = args, n = 1001) 
) 
} 

ggplot(data.frame(x = c(-3, 3)), aes(x)) + 
    stat_function(fun = dnorm) + 
    plot_both(-3, -2, "purple") + 
    plot_both(-2, -1, "yellow") 
# + etc