[R] 파이 차트 (Pie Chart)

안녕하세요.

오늘은  R로 파이 차트를 시각화내는 방법에 대해 알아보겠습니다.

 

 R 파이 차트 설명 및 예시

▣ 파이 차트란? (Pie Chart)

범주별 구성 비율을 원형으로 표현한 그래프

- 범주의 개수가 적을 때 전체 대비 여러 구성 요소 간 관계를 표시하는 데 유용함.

 

: 예시 데이터 (삼성전자 최대주주등 지분현황)

참조 사이트 - CompanyGuide 삼성전자 종목정보

- 삼성전자 최대주주등에 대한 주주 구분 현황을 파이 차트로 표현해보겠습니다.

 

■ 최대주주 등 상세내용

주주명	관계	보통주	지분율	최종변동일
삼성생명보험	본인	508,157,148	8.51	2018/05/31
삼성물산	특수관계인	298,818,100	5.01	2018/05/04
홍라희	특수관계인	117,302,806	1.96	2022/03/24
이재용	특수관계인	97,414,196	1.63	2021/04/29
삼성화재해상보험	특수관계인	88,802,052	1.49	2018/05/31
이부진	특수관계인	55,394,044	0.93	2021/04/29
이서현	특수관계인	55,394,044	0.93	2021/04/29
삼성생명(특별계정)	특수관계인	10,246,942	0.17	2022/12/27
삼성복지재단	특수관계인	4,484,150	0.08	2018/05/04
삼성문화재단	특수관계인	1,880,750	0.03	2018/05/04
박학규	특수관계인	22,500	0.00	2022/12/07
경계현	특수관계인	18,050	0.00	2022/04/22
이정배	특수관계인	15,000	0.00	2022/04/25
한종희	특수관계인	15,000	0.00	2022/03/11
노태문	특수관계인	13,000	0.00	2022/12/27
김한조	특수관계인	3,655	0.00	2022/04/11

 

■ R로 파이 차트 그려보기
- 지분율 1% 이상의 삼성전자 보통주수를 기반으로 R 내장 함수와 ggplot2 함수를 통하여 파이 차트를 그려보겠습니다.

# installing and loading readxl package 
install.packages("dplyr")
install.packages("ggplot2")
library(dplyr)
library(ggplot2)

# data to dataframe
samsung_stocks <- read.csv("삼성전자 주주.csv")

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

## 파이 차트 그리기
#내장 함수
pct = paste(round(samsung_stocks$보통주/sum(samsung_stocks$보통주)*100,1),'%')
pie(x=samsung_stocks$보통주, label = pct)

R 내장함수 파이 차트

■ ggplot2 활용하기

# ggplot2 활용
ggplot(samsung_stocks, aes(x='', y=보통주, fill=주주명))+
  geom_bar(stat='identity')+
  theme_void()+
  coord_polar('y', start=0)+
  geom_text(aes(label=pct),
            position=position_stack(vjust=0.5))+
  labs(title="Pie Chart of Samsung Shareholders",)+
  theme(plot.title = element_text(hjust = 0.5))

R ggplot2 파이 차트