R Notebook

cancer

install.packages("ggplot2")
library(ggplot2)
#p.184
# mpg 데이터가 ggplot2 패키지 내장데이터
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/c4kycrook9ohjnq/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'
)