模拟一下,希望给楼主提示:
<br />
library(ggplot2);<br />
library(reshape2);</p>
<p>myreplies <- 10000L;<br />
mysublines <- 12L;</p>
<p>mydat <- melt(replicate(myreplies, diff(sort(c(0, runif(mysublines-1L), 1)))));<br />
ggplot(mydat) + geom_histogram(aes(x=value)) + facet_wrap(~Var1)<br />
</p>