R中的例子

require(stats)
require(graphics)
n <- 10
nn <- 100
g <- factor(round(n * runif(n * nn)))
# runif函数生成n*nn个0-1均匀分布数，这里就是生成1000个0-1分布的数
#round函数是用来四舍五入，默认取整数，这里取完整数后就是0到10的整数
#factor转化为因子，将0到10的整数转换为因子
x <- rnorm(n * nn) + sqrt(as.numeric(g))
#rnorm生成正态分布数
xg <- split(x, g)
#g是从0到10，一共11个数，这里split是将x分为11组
boxplot(xg, col = "lavender", notch = TRUE, varwidth = TRUE)
#boxplot画的是箱线图

sapply(xg, length)
#sapply是指对xg(xg是11个列表)的每一个列表算length
sapply(xg, mean)

代码里的箱线图