메달 현황 그래프 그리기

CODEDRAGON Development/Big Data, R, ...

반응형



 

메달 현황 그래프 그리기

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

 

 

 

# 작업폴더 지정

> 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))

>


 

 


반응형