waffle(brst3y1, rows = 20, colors=c("#a6cee3","#fb9a99","white"),
size=1.0,
title="젊은 유방암 환자 중 BRCA 유전자 돌연변이 보유 환자",
legend_pos = "bottom",
xlab="1square=1person") +
theme(plot.title = element_text(family = "serif",size=15, face="bold", hjust = 0.5))