“암병기 활용 아이디어”문서에 따라, 직장암의 연도별 암 발생 통계에 대해 시각화를 진행하였다.
그 결과, 여성은 2087명, 남성은 3769명으로, 남성이 약 2배 정도 많은 경향을 보였다.
rectCSw <- table(rectCS$SEX)
waffle(rectCSw, rows = 70, colors=c("darkred","darkblue","white"),
size=1,
title="성별 별 직장암 발생 통계",
legend_pos = "bottom",
xlab="1square=1person (2087:3769)",
) +
theme(plot.title = element_text(family = "serif",size=15, face="bold", hjust = 0.5))