> For the complete documentation index, see [llms.txt](https://ncdcadmin.gitbook.io/casestudy/llms.txt). Markdown versions of documentation pages are available by appending `.md` to page URLs; this page is available as [Markdown](https://ncdcadmin.gitbook.io/casestudy/01./undefined-6/undefined-1/undefined.md).

# 유방암 환자들의 임상적 특성

유방암 환자들의 임상적 특성- 연령, 과거력, 초기 증상

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="환자수")

![](https://3975245849-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2Fcasestudy%2F-M-TqjMF6mzh0S8pDUGd%2F-M-TqzEYQ34OvEPaObPU%2F0.png?generation=1581065697942673\&alt=media)

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

다음은 과거력 중 초경 정보에 대한 시각화 결과이다.(논문 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

![](https://3975245849-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2Fcasestudy%2F-M-TqjMF6mzh0S8pDUGd%2F-M-TqzEZ8G5Dx1UFb-Ia%2F1.png?generation=1581065697940242\&alt=media)

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

마지막으로, 환자들의 초기 임상적 특성에 대한 데이터를 시각화하였다. (논문 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

![](https://3975245849-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2Fcasestudy%2F-M-TqjMF6mzh0S8pDUGd%2F-M-TqzE_eDOdvuFI2ORc%2F2.png?generation=1581065697945146\&alt=media)