R Studio Cloud 사용법과 원형(pie) 그래프 시각화

위 테이블들의 데이터들을 원형 그래프로 시각화해보려고 합니다.

예를 들어 각 사원들의 연봉 데이터들을 파이로 쪼개 시각화하여 한눈에 해석하기 쉽도록 말입니다.

 

우선 실행환경은 인터넷만 있으면 어디서든 R Studio 환경으로 코드를 실행해볼 수 있는 

RStudio Cloud에서 실행해봤습니다.

주소는 https://rstudio.cloud/ 입니다. 편하게 코드 실행해보고 싶으실 때 쓰시면 좋습니다.

RStudio Cloud - Do, share, teach, and learn data science

 

위와 같이 본인이 가지고 있는 csv 파일을 우측 하단에 Upload 버튼을 눌러 import 할 수 있습니다.

알아서 readr 이라는 라이브러리도 설치 및 코드까지 작성해서 import 해줍니다.

2년 전에 했을때보다 상당히 편해졌네요. 테스트 환경이 ㅎㅎ

 

import 하시게 되면 아래 이미지처럼 library도 import 하고 

emp 변수에 읽어온 csv 파일까지 넣어줍니다. 세상 편안..

 

 

pie graph

우선 가장 기본적으로 커스텀 없이 default(기본값) 설정으로 시각화해보겠습니다.

코드도 굉장히 간단합니다.

 

> pie(emp$sal)

 

rainbow pie

> pie(emp$sal, col=rainbow(14))

 

title, name

> pie(emp$sal, 
+     col=heat.colors(14),
+     main="Salary Pie Chart",
+     labels=emp$ename)

 

>> 줄 띄어서 보기 좋게 코딩하려면 Shift + Enter 누르시면 들여 쓰기 자동으로 되고 줄 바꿈 됩니다.

추우니까 color는 heat.colors로 따뜻하게 바꿨습니다.

컬러 참고 블로그: https://www.r-bloggers.com/2010/06/color-palettes-in-r/

Color Palettes in R | R-bloggers

 

결과)

 

 

그러면 이제 직업 별 월급의 합계를 파이 차트로 시각화하여 보겠습니다.

먼저 변수에 데이터 전처리하여 할당해줍니다.

 

> salSumData <- tapply(emp$sal, emp$job, sum)

 

그러면 우상단에 Environment 탭 누르면 할당했던 변수나 테이블을 볼 수 있습니다.

 

> pie(salSumData,
+     col = heat.colors(nrow(salSumData)),
+     main = "직업 별 월급 합계")

 

결과)

>> nrow() 함수를 사용하여 행의 개수를 가져와서 color를 지정해줄 수 있습니다.

 

 

3D pie chart

이번엔 3D로 파이 차트를 그려보려고 합니다.

우측 하단에 Packages 탭에서 plotrix를 검색합니다.

그럼 아래와 같이 설치되어 있는 라이브러리를 볼 수 있습니다.

체크박스를 체크하면 알아서 라이브러리가 import 됩니다.

라벨의 직업 별 연봉 합계의 각 비중을 구하기 위해 라벨 변수를 재정의합니다.

직업들을 정렬해줍니다.

> sortedJobLabel <- sort(unique(emp$job))

> jobLabel2 <- paste(sortedJobLabel, seq = ",", jobLabel, "%")

 

> pie3D(salSumData,
+       col = heat.colors(nrow(salSumData)),
+       main = "직업 별 월급 합계",
+       labels = jobLabel2,
+       density = 80,
+       explode = 0.1)

>> explode : 얼마나 파이를 떨어뜨릴 것인지