(그래프) 모자이크 플롯

[cardiomoon]

아래의 barplot과 같은 일을 한꺼번에 해주는 mosaicplot을 쓰면 다음과 같다.

opar <- par(no.readonly = TRUE)

# 화면을 1*2로 나눈다

par(mfrow = c(1,2))

mosaicplot(~floor(age/10)+Obesity,MS_male,color=c("lightgray","black"),main=c("Male"),xlab=c("Age Group(age/10)"))

mosaicplot(~floor(age/10)+Obesity,MS_female,color=c("lightgray","black"),main=c("Female"),xlab=c("Age      Group(age/10)"))

par(opar)

두가지 방법 모두 장단점이 있다. 호불호는 개인의 취향임