尝试制作一个模型,预测项目需要多长时间。当前模型显示 可能 需要多长时间。但我想制作一个模型,它将采用 long 。这可以通过添加所有先前的数字直到达到100%百分比来实现。结果应该像S曲线。也就是说,我希望它增加直到达到100%,而不是中途减少。
library(ggplot2)
library(mc2d)
library(scales)
n=1000
planing=rpert(n, min=30, mode=40, max=70, shape=0)
marketing=rpert(n, min=40, mode=60, max=120, shape=30)
hirepeople=rpert(n, min=25, mode=40, max=70, shape=30)
totallength=planing + marketing + hirepeople
p <- ggplot(data.frame(totallength), aes(x = totallength))
p <- p + geom_histogram(aes(y = (..count..)/sum(..count..)), color = "black", fill = "steelblue",
binwidth = 5)
p <- p + scale_y_continuous(labels = percent)
p <- p + xlab("Days") + ylab("Percentage")
p <- p + theme_bw()
print(p)
答案 0 :(得分:0)
您应该使用geom_histogram
的ecdf
统计信息。这将总结所有百分比,并将产生您正在寻找的东西。
qplot(totallength, stat = "ecdf", geom = "step")
答案 1 :(得分:0)
添加像scale_y_continuous(breaks = seq(0,1,by = 0.1),labels = percent_format())这样的东西应该添加百分比。