准备工作
加载数据集
load("E:/Statistics_with_R/example/ch2/example2_2.RData")
直方图
> par(mfrow=c(2,2),mai=c(0.6,0.6,0.4,0.1), cex=0.7)
> hist(example2_2$销售额,xlab="销售额",ylab="频数",main="(a)普通")
> hist(example2_2$销售额,breaks=20, col='lightblue', xlab="销售额",ylab="频数",main="(b)分成20组")
> hist(example2_2$销售额, prob=TRUE, breaks=20,xlab="销售额", ylab="密度",col="lightblue", main="(c)增加轴虚线和核密度线")
> rug(example2_2$销售额)
> lines(density(example2_2$销售额),col="red")
> hist(example2_2$销售额, prob=TRUE, breaks=20, xlab="销售额", ylab="密度", main="(d)增加正态密度线", col="lightblue")
> curve(dnorm(x, mean(example2_2$销售额), sd(example2_2$销售额)), add=T, col="red")
> rug(jitter(example2_2$销售额))