library(ggplot2)
ggplot(NULL, aes(c(-5,5))) +
geom_area(stat = "function", fun = \(x) dnorm(x, mean=-1), fill = "#00998a", xlim = c(-5, 1.5)) +
geom_area(stat = "function", fun = \(x) dnorm(x, mean=-1), fill = "grey80", xlim = c(1.5, 5)) +
geom_vline(xintercept=1.5, linetype="dotted") +
labs(x = "", y = "") +
scale_y_continuous(breaks = NULL) +
scale_x_continuous(breaks = NULL) +
theme_bw()
ggsave(filename="pop1.pdf", width=5, height=2)