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

도수분포표

favorite_season <- c('WINTER','SUMMER','SPRING','SUMMER','SUMMER',
                     'FALL','FALL','SUMMER','SPRING','SPRING')
favorite_season
frequency_table <- table(favorite_season)
frequency_table/length(favorite_season)
frequency_table

[그림1] R 도수분포표 예제 출력

csv파일로 

write.csv(favorite_season,"season.csv")
read.csv("season.csv")

[그림2] csv 파일 형식으로 예제 출력

막대그래프

bar_graph <- frequency_table 
bar_graph 
barplot(bar_graph,main = "favorite season") # main은 이름 

[그림3] 막대그래프 예제 출력

[그림4] 막대그래프 예제 출력

원 그래프

# 원 그래프
circle_graph <- bar_graph
circle_graph
pie(circle_graph, main="favorite season")

[그림5] 원 그래프 예제 출력

[그림6] 원 그래프 예제 출력

원 그래프 퍼센트 표시

# 퍼센트 표시
pct <- round(circle_graph/sum(circle_graph)*100,2)
label <- paste(names(circle_graph),"\n",pct,"%")
pie(circle_graph,labels=label)

[그림7] 퍼센트 표시 예제 출력

[그림8] 원 그래프 퍼센트 예제 출력

 

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