在ggplot中使用stat_function時着色一段曲線

Question

我繪製了一條Z曲線，並使用geom_segment對曲線下方的區域着色。

我已經作圖使用

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

我想色曲線的段，使得曲線的顏色在x軸的顏色相匹配它下面的Z分佈。

由於我使用的是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