R Notebook

대장암 보고서

[1] 건강보험심사평가원 보건의료빅데이터 개방시스템

http://opendata.hira.or.kr/home.do

18,000여개의 관찰치와 8개의 변수가 있는 대장암 환자데이터를 통해

가장 많은 대장암이 발생하는 연령대를 그래프로 표현하시오.

1단계: 데이터 불러오기

var.cancer<-read.csv("https://www.dropbox.com/s/dw59m4q1vaqwayl/example_cancer.csv?dl=1")

2단계: 데이터 구조

str(var.cancer)

3단계: 연령대별 도수값

var.degree_of_age <- table(cut(var.cancer$age, breaks=(1:11)*10))

4단계: 열값의 이름 변경

rownames(var.degree_of_age) <- c("10대","20대","30대","40대","50대","60대","70대","80대","90대","100대")

5단계: 시각화차트

if("ggplot2" %in% installed.packages("ggplot2") == FALSE)install.packages("ggplot2")
library(ggplot2)
if("ggthemes" %in% installed.packages("ggthemes") == FALSE)install.packages("ggthemes")
library(ggthemes)
ggplot(data=var.cancer,aes(x=age))+
  geom_freqpoly(binwidth=10,size=1.4,color="orange")+
  theme_wsj()