13.2.4 定量数据的直方图

计算机软件包在展示数据方面往往非常有用。例如，图 13.4 包含一些描述两台原型汽车发动机性能的数据：每台发动机的一系列运行时间（以恒定速度使用 1 升标准燃料运行的分钟数）以及测试时的环境温度。有两个问题很容易表述，并且可能可以从这些数据中得到答案，它们是

• (a) 一台发动机的燃油消耗是否与另一台不同？
• (b) 燃油消耗是否取决于环境温度？

这些问题实际上是相关的，正如《Advanced Modern Engineering Mathematics》中所讨论的，该书中对这个例子进行了相当详细的讨论。目前，我们将看看仅通过绘制数据能学到什么。

每类发动机的数量在图 13.5 中按运行时间显示，在图 13.6 中按环境温度显示。用于表示区间终点的右方括号不包含端点，而表示区间起点的左方括号则包含端点。

我们可以使用以下 R 代码生成图 13.3 中的条形图：

按年龄组绘制发动机数量的条形图 barplot(x,xlab="Age", ylab="Number of engines", border= "black", col="skyblue", names.arg=group) # 按年龄组绘制缺陷发动机数量的条形图 barplot(x_d,ylim=c(0,10), xlab="Age", ylab="Number of defective engines", border= "black", col="lightblue1", names.arg=group) # 无缺陷发动机和缺陷发动机的数量 data <- rbind(x-x_d, x_d) # 创建数据框 data<-data.frame(data) # 定义列名 names(data) <- c("<5 years", "5-10 years", ">10 years") barplot(as.matrix(data), ylim=c(0, 42), xlab="Age", ylab="Number",border =c("black", "black"), col=c("deepskyblue", "lightblue1")) # 生成条形图 # 在条形图中放置图例。 # 图例出现在 (x=2.5, y= 42) 的位置， # 文本缩放为 90% legend(2.5, 42, c("Not defective","Defective"),fill = c("deepskyblue","lightblue1"), cex=0.9)