건강보험예시

install.packages("ggplot2")
library(ggplot2)
# mpg 데이터가 ggplpt2 패키지 내장데이터
ggplot(
  data = mpg,
  aes(x=displ,y=hwy)
)+geom_point()+xlim(3,6)+ylim(10,30)
# [1] 건강보험심사 평가원 보건의료 빅데이터 개방시스템에서
# 18000여개의 관찰치와 8개의 변수가 있는 대장암  환자데이터를 통해 가장 많은 대장암이 발생하는 연령대를 
# 그래프를 통해 표현하시오.
# step 1
cancer <- read.csv("https://www.dropbox.com/s/dw59m4q1vaqwayl/example_cancer.csv?dl=1")
head(cancer)
# step 2
class(cancer)
str(cancer)
# step 3 : 연령대별 도수 (= 구간별갯수) 값 구하기
degree_of_age <- table(cut(cancer$age,breaks=(1:8)*10))
# step 4 : 열값의 이름변경
head(degree_of_age)
rownames(degree_of_age) <- 
  c('10대','20대','30대','40대','50대','60대','70대')
head(degree_of_age)

# step 5 : 시각화
ggplot(
  data = cancer,
  aes(x=age)
)+geom_freqpoly(
  binwidth=10,size=1.4,color='red'
)