[R] 버블 차트 (Bubble Chart)

안녕하세요.

오늘은 R로 산점도의 한 종류인 버블 차트를 시각화내는 방법에 대해 알아보겠습니다.

 

 R 버블 차트 설명 및 예시

▣ 버블 차트란? (Bubble Chart)

관측자에게 더 풍부한 정보를 제공하기 위해 데이터의 3차원 표시가 필요할 때 사용되는 관계형 차트

- 산점도의 한 종류로, 3개의 축(일반적으로 x, y, z)에 걸쳐 데이터를 처리하고 나타내는 다른 3차원 차트와 달리 2개의 축(x, y)에 표시되며 버블 크기는 세 번째 중요한 정보를 전달함.

 

▣ 국내 시가총액 상위 30 기업의 재무안정성 비교

: 예시 데이터 - 시가총액 30 재무안정성 비율

예시 데이터

■ R 버블차트 코드 및 결과

# installing and loading readxl package 
library(dplyr)

# data to dataframe
kstocks_stable <- read.csv("기업정보.csv")

# 데이터 요약보기
glimpse(kstocks_stable)

기업정보 개요

# 버블 차트 그리기
symbols(kstocks_stable$유보율..., kstocks_stable$부채비율..., # x와 y의 좌표 위치     
        circles=kstocks_stable$총자본.천원., # 각각 써클의 반지름값         
        inches=0.8, # 각각 써클의 크기 조절값         
        fg="white", # 각각 써클의 테두리 색         
        bg="lightgray", # 각각 써클의 바탕색         
        lwd=1.5, # 각각 써클의 테두리선 두께         
        xlab="유보율 (%)", # x 축 제목 설정         
        ylab="부채비율 (%)", # y 축 제목 설정 
        main="기업정보 재무안정성 비교") # 제목 설정 

text(kstocks_stable$유보율..., kstocks_stable$부채비율..., # 문자로 출력할 x,y 위치      
     kstocks_stable$Name, # 문자로 출력할 값 
     cex=0.8, # 글자 크기
     col="black") # 글자 색

- X 좌표: 유보율, Y 좌표 : 부채비율, Z 좌표 : 총자본
- 대출을 기반으로 사업하는 금융업 특성상 관련 회사들의 부채비율이 높게 포지션되어 있음을 알 수 있음.
- 우리나라 시총 상위 기업들이 부채비율은 500% 미만이고 높은 유보율에 포지션되어 있음을 알 수 있음.