library(vcd) # 使用vcd里的mosaic函数
data("HairEyeColor") # 加载内部自带数据集中头发眼睛颜色数据
str(HairEyeColor) # 查看数据结构

##  table [1:4, 1:4, 1:2] 32 53 10 3 11 50 10 30 10 25 ...
##  - attr(*, "dimnames")=List of 3
##   ..$ Hair: chr [1:4] "Black" "Brown" "Red" "Blond"
##   ..$ Eye : chr [1:4] "Brown" "Blue" "Hazel" "Green"
##   ..$ Sex : chr [1:2] "Male" "Female"

  该数据描述的是对不同性别下头发和眼睛的颜色的统计。

dimnames(HairEyeColor)# 查看各个变量包含的信息

## $Hair
## [1] "Black" "Brown" "Red"   "Blond"
## 
## $Eye
## [1] "Brown" "Blue"  "Hazel" "Green"
## 
## $Sex
## [1] "Male"   "Female"

  该数据集为一个三维的列联表，主要包含三个字符串型变量，分别为头发、眼睛和性别。

  其中，头发包含的颜色有黑色、棕色、红色、金色；眼睛包含的颜色有棕色、蓝色、淡褐色、绿色；性别包含有男、女。