연습문제

1. Cars93 데이터 세트에 있는 차량의 종류(Type)와 차량의 구동방식(DriveTrain) 등의 2개의 범주형 변수들을 모자이크 그림으로 시각화 하려 합니다.

1-1. 차량의 종류(Type)별로 차량의 구동방식(DriveTrain)을 나타내는 2-way 분할표를 table() 함수를 이용하여 구하시오.

tab <- with(Cars93, table(Type, DriveTrain))
tab

##          DriveTrain
## Type      4WD Front Rear
##   Compact   1    13    2
##   Large     0     7    4
##   Midsize   0    17    5
##   Small     2    19    0
##   Sporty    2     7    5
##   Van       5     4    0

attach(Cars93)

## The following object is masked _by_ .GlobalEnv:
## 
##     Cylinders

## The following objects are masked from Cars93 (pos = 10):
## 
##     AirBags, Cylinders, DriveTrain, EngineSize, Fuel.tank.capacity,
##     Horsepower, Length, Luggage.room, Make, Man.trans.avail,
##     Manufacturer, Max.Price, Min.Price, Model, MPG.city, MPG.highway,
##     Origin, Passengers, Price, Rear.seat.room, Rev.per.mile, RPM,
##     Turn.circle, Type, Weight, Wheelbase, Width

tab1 <- table(Type, DriveTrain)
tab1

##          DriveTrain
## Type      4WD Front Rear
##   Compact   1    13    2
##   Large     0     7    4
##   Midsize   0    17    5
##   Small     2    19    0
##   Sporty    2     7    5
##   Van       5     4    0

detach(Cars93)

tab2 <- table(Type = Cars93$Type, DriveTrain = Cars93$DriveTrain)
tab2

##          DriveTrain
## Type      4WD Front Rear
##   Compact   1    13    2
##   Large     0     7    4
##   Midsize   0    17    5
##   Small     2    19    0
##   Sporty    2     7    5
##   Van       5     4    0

1-2. 위에서 구한 분할표를 vcd 패키지의 mosaic() 함수를 이용하여 세로 방향(direction = "v")의 모자이크 그림으로 시각화하시오.

mosaic(tab, 
       gp = gpar(fill = c("yellow", "blue")), 
       direction = "h",
       main = "차종별 자동차 구동방식 모자이크 그림 : 세로 방향")

mosaic(DriveTrain ~ Type, Cars93,
       gp=gpar(fill = c("yellow", "blue", "red")),
       direction = "h")

1-3. 위에서 구한 분할표를 vcd 패키지의 mosaic() 함수를 이용하여 가로 방향(direction = "h")의 모자이크 그림으로 시각화하시오.

mosaic(tab, 
       gp=gpar(fill = c("yellow", "blue", "red")), 
               direction = "h",                    # 세로
               main = "차종별 자동차 구동방식 모자이크 그림 : 가로 방향")

mosaic(DriveTrain ~ Type, Cars93,
       gp=gpar(fill = c("yellow", "blue", "red")), 
       direction = "h")