[R 강의] 70. 파이그래프에 범례(legend) 추가하기

도구 R로 푸는 통계

70. 파이그래프에 범례(legend) 추가하기

---

68강에서 그렸던 파이그래프를 변형했습니다. 회사 이름을 빼고 퍼센트만 남겼습니다. 회사 이름은 오늘 배울 범례(legend)를 이용해서 나타내겠습니다. 

data= c(21.6,22.3,16.4,15.7,9.9,14.2)

labels=paste(data,'%')

mycolor=c(colors()[1],colors()[13],colors()[53],colors()[45],colors()[23],colors()[18])

title=c("Global large-area display market share 2017.1")

pie(data,labels,col=mycolor,main=title)

 

위 그래프에 범례를 추가해봅시다. 회사 이름으로 벡터를 만들고 legend 함수를 입력해줍니다. 1.5와0.5는 x,y 좌표입니다. 적당히 조절하며 위치를 정하시면 됩니다. 

company=c('LGD','BOE','AOU','Innolux','Samsung','Others')

legend(1.5,0.5,company,fill=mycolor)

 

오른쪽에 범례가 추가된 것을 확인할 수 있습니다. 

 

 

 

영상이 더 편하신 분