“암병기 활용 아이디어”문서에 따라, 유방암의 연도별 암 발생 통계에 대해 시각화를 진행하였다.
널리 알려져있다시피, 유방암은 여성에게 빈번하게 발생하는 대표적인 “여성암”중 하나로, 해당 시각화 에서 남성은 10명으로, 전체 0.5%에 불과했다.
brstCSw <- table(brstCS$SEX)
waffle(brstCSw, rows = 40, colors=c("darkred","darkblue","white"),
size=1,
title="성별 별 유방암 발생 통계",
legend_pos = "bottom",
xlab="1square=1person (1988:10)",
) +
theme(plot.title = element_text(family = "serif",size=15, face="bold", hjust = 0.5))