빅데이터 3일차 - R 도수분포표,막대그래프, 원 그래프 연습문제

도수분포표

# 도수분포표
gender <- c('F','F','F','M','M','F','F','F','M','M')
gender_frequency_table <- table(gender)
gender_frequency_table

[그림1] 도수분포표 연습 문제 출력

막대 그래프

# 막대 그래프
gender_bar_graph <- gender_frequency_table
barplot(gender_bar_graph,main="성별",ylab="성별",xlab="빈도")

[그림2] 막대 그래프 연습 문제 출력

 

원 그래프

# 원 그래프
gender_circle_graph <- gender_bar_graph
pie(gender_circle_graph, main = "성별",ylab="y축 이름",xlab="x축 이름")

[그림3] 원 그래프 연습 문제 출력

원 그래프 퍼센트

# 원 그래프 퍼센트
pct <- round(gender_circle_graph/sum(gender_circle_graph)*100,2)
gender_label <- paste(names(gender_circle_graph),"\n",pct,"%")
pie(gender_circle_graph,labels=gender_label,main="성별")

[그림4] 원 그래프 퍼센트 연습 제 출력

 

출처 : 모두를 위한 R 데이터 분석 입문 한빛아카데미