我们可以使用以下 R 代码重现图 13.2 中的饼图：

13.2.3 定性数据的图形 # 输入数据 # 三个年龄组中各自的发动机数量 x <- c(25, 40, 35) # 三个年龄组中各自的不合格 # 发动机数量 x_d <- c(2, 5, 9) # 年龄组 group <- c("<5 years", "5-10 years", ">10 years") # 按年龄组划分的发动机饼图 x/sum(x) # 各年龄组发动机的百分比 labels <- c("<5 years: 25%", "5-10 years: 40%", ">10 years: 35%") # 标注年龄组 pie(x, labels = "", col=c("deepskyblue", "lightblue1", "lightblue2" )) # 无标签 # 现在可以单独添加标签。本例中有 3 个 # 类别，因此需要使用 locator(3)。 # 通过设置 pos = 4，文本会被放置在 # 点击位置点的右侧 text(locator(3), labels, pos = 4) # 按年龄组划分的不合格发动机饼图 x_d/sum(x_d) # 各年龄组不合格发动机的百分比 labels_d <- c("<5 years: \n 12.5%", "5-10 years: \n 31.25%", ">10 years: 56.25%") # 标注年龄组 pie(x_d, labels, , cex=1.5) # 生成饼图， # 并放大年龄组标签的文字 pie(x_d, labels="", col=c("deepskyblue", "lightblue1", "lightblue2" )) # 生成无标签的饼图 # 现在可以单独添加标签。 text(locator(3), labels_d, pos = 4)

图 13.3(a) 和 分别展示了按年龄组划分的发动机数量和不合格发动机数量。虽然每个条形的宽度通常相同，但每个条形的高度表示各年龄组中发动机的数量。图 13.3(c) 展示了堆叠条形图，其中每个条形由两部分组成，下部表示合格发动机，上部表示不合格发动机。条形下部和上部的长度分别对应合格发动机和不合格发动机的数量。