유방암 환자들의 임상적 특성
유방암 환자들의 임상적 특성- 연령, 과거력, 초기 증상
1. 대상논문
1)제목: 유방암 수술 호나자의 임상적 고찰
2)저자: 이재설, 배영태
3)게재지: 한국유방암학회지 제 7권 제3호
2. 활용데이터
1)건수: 2012년~2014년 유방암 진단 받은 환자 중 초경일이 기록된 유방암 환자 레지스트리 데이터 607 건
2)테이블: 유방암 대상자 정보(BRST_PT_TRGT), 유방암 환자건강 정보 (BRST_PE_HLTH), 유방암 수술전소견(BRST_PE_OPRT_PRE)
본 논문은 외과 수술을 시행 받은 유방암 환자 300 여 명에 대해, 임상적 특성, 수술방법, 과거력, 연령대 등 총 10 개의 특성에 대한 임상적 고찰을 실시한 논문이다. 이 10개의 특성 중, 추출이 가능하며 수치화할 수 있는 데이터인 연령대, 과거력 중 초경나이, 임상적 특성, 총 세 개의 특성에 대해 시각화를 실시하였다.

유방암 환자들의 연령 분류

논문에서 정한 Age distribution의 기준대로, 환자의 각 나이를 분류하여 Barplot으로 시각화를 실시하였다.(논문 P.175, Table1.Age Distribution)
논문 내 결과와 마찬가지로, 40대에서 가장 높은 발병률을 보였고, 그 다음은 50대가 차지하였다.
ggplot(brst1,mapping=aes(x=DIAG_AGE, y=..count.., fill=DIAG_AGE)) + geom_bar(stat="count", color="white") + ggtitle("유방암 연령군 별 환자수")+ scale_fill_brewer(palette=4) + geom_text(mapping=aes(label=paste0(round(..count../sum(..count..)*100),"%")),stat ="count", vjust=1.0, hjust=0.5, color="black") + theme(plot.title = element_text(size=15, face="bold", hjust = 0.5)) + labs(x="연령군", y="환자수")

유방암 환자들의 과거력 중 초경연령의 비율

다음은 과거력 중 초경 정보에 대한 시각화 결과이다.(논문 P.177, Table 10.Risk factor)
논문과 마찬가지로 14세에서 20세 사이의 초경을 겪은 환자의 비율이 가장 높았고, 그 외의 환자들은 14세 전에 초경을 경험한 것으로 드러났다. 다만 분석 대상 환자 데이터 중, 20세 이상인 경우는 논문과는 다르게 존재하지 않았다.
ggplot(brst1, aes(x="", y=..count.., fill=MENA_AGE)) + geom_bar(stat="count", width = 1.0, color="white") + coord_polar(theta = "y", start = 0) + geom_text(mapping=aes(label=paste0(round(..count../sum(..count..)*100),"%")),stat ="count",vjust=-1.3, hjust=0.5, face="bold", size=5, position = position_stack(vjust = 0.5),color="white", face="bold") + ggtitle("초경 연령비", )+ theme(plot.title = element_text(size=15, face="bold", hjust = 0.5)) + labs(x="", y="")
## Warning: Duplicated aesthetics after name standardisation: face
## Warning: Ignoring unknown parameters: face

유방암 환자들의 초기 자각 증상

마지막으로, 환자들의 초기 임상적 특성에 대한 데이터를 시각화하였다. (논문 P.175, Table 2. Clinical manifestation) 임상적 특성 중 초기 내원한 이유에 대해, 혹도 없고 통증도 없는 무증상, 두 경우 모두 겪은 동통성종괴, 혹은 없으나 통증만 있는 단순통증, 혹은 있으나 통증은 없는 무통성종괴촉지, 총 네 분류로 구분하여 시각화를 실시하였다.
해당 시각화 역시 논문과 마찬가지로 무통성종괴촉지로 내원하는 경우가 절반 이상을 차지하였고, 그 외 세 개의 Case들은 비슷한 비율을 차지하였다. 이로 미루어볼 때, 유방암 환자들은 대체로 통증 없는 혹을 발견하고 유방암을 자각하는 경향이 있는 것을 확인할 수 있다.
ggplot(brst1, aes(x="", y=..count.., fill=증상)) + geom_bar(stat="count", width = 1.0, color="white") + scale_fill_brewer(palette=4) + coord_polar(theta = "y", start = 0) + geom_text(mapping=aes(label=paste0(round(..count../sum(..count..)*100),"%")),stat ="count",vjust=0, hjust=0.5, size=4,position = position_stack(vjust = 0.5), face="bold", color="black") + ggtitle("유방암 환자들의 초기 임상적 특성")+ theme(plot.title = element_text(size=15, face="bold", hjust = 0.5))
## Warning: Ignoring unknown parameters: face