메달 현황 그래프 그리기

 

메달 현황 그래프 그리기

나라별 메달 그래프를 시각화 코드 예시입니다.

 

 

 

# 작업폴더 지정

> setwd("C:/CodeLab/workspace_R") > getwd() [1] "C:/CodeLab/workspace_R"

>

 

# 데이터 불러오기

# header=TRUE: 첫줄이 헤더있지 표시 설정

> olympic<- read.csv("Medal.csv", sep=",", header=TRUE)

>

 

 

# 데이터 확인

> olympic   미국 영국 중국 러시아 독일 일본 프랑스 대한민국 이탈리아 호주 1   46   27   26     19   17   12     10        9        8    8 2   37   23   18     18   10    8     18        3       12   11 3   38   17   26     19   15   21     14        9        8   10

>

 

 

 

# 나라별 메달 데이터 확인

> olympic$대한민국 [1] 9 3 9

>

 

 

> olympic$일본 [1] 12  8 21

>

 

 

> olympic$이탈리아 [1]  8 12  8

>

 

 

 

# 나라별 바그래프 출력

> barplot(olympic$대한민국)

>

 

> barplot(olympic$일본)

>

 

> barplot(olympic$이탈리아)

>

 

 

 

 

# 데이터 확인

> olympic   미국 영국 중국 러시아 독일 일본 프랑스 대한민국 이탈리아 호주 1   46   27   26     19   17   12     10        9        8    8 2   37   23   18     18   10    8     18        3       12   11 3   38   17   26     19   15   21     14        9        8   10

>

 

 

 

 

# 모든 나라의 바 그래프 출력

# ylim=c(0,50) : y축이 최대값이 46이므로 ㅇ를 표현하기 위해 50으로 값 설정

> barplot(as.matrix(olympic),main = "금메달수",ylab="수량", +         beside=T,col=rainbow(3),ylim=c(0,50))

>

 

 

 

 

 

# 범례 추가

# 35,40 (x, y) 위치에 범례를 표시합니다.

> legend(35,40,c("금","은","동"),cex=0.8,fill=rainbow(3))

>