percA <- (pnorm(q = -1.35,
mean = 0, 
sd = 1))*100 
ggplot(NULL,
aes(c(-3,3))) + geom_area(stat = "function",
fun = dnorm, fill = "#00998a",
xlim = c(-3, -1.35)) + geom_area(stat = "function", 
fun = dnorm, fill = "grey80", xlim = c(-1.35, 3))