今後追加していく。 とりいそぎ。 library(ggplot2) qplot(x = 0:1, geom = "blank") + stat_function(fun = function(x)1-(1-x)^1) + stat_function(fun = function(x)1-(1-x)^2) + stat_function(fun = function(x)1-(1-x)^5) + stat_function(fun = funct…