R studio 파이차트 간략하게 만들기

distribute = table(boxoffice$배급사)
order_dist = order(distribute, decreasing = T)
freq_dist = distribute[order_dist]
pie(freq_dist, labels = label)
pct = round(freq_dist/sum(freq_dist)*100,1)
label=paste0(names(freq_dist),"\n", pct, "%")

박스오피스를 보고 이와 같은 파이차트를 만들었습니다.

여기서 상위4개를 top4로 합치고 나머지를 묶고 싶은데 어떡해 해야하나요?

파이차트 R

2,361

지슬

4년 전

댓글 1

답변 작성

이미지 첨부

kimho

조건에 따라 그룹으로 묶으시면 될 것 같습니다.

아래 샘플 코드를 참고해보시기 바랍니다.

# 샘플 데이터
df=data.frame(id=paste('R',seq(1,5),sep=''),value=as.numeric(c('45','25','77','0','100')))

# 조건에 따른 그룹 만들기
grp1=subset(df,value<26)
grp2=subset(subset(df,value>26),value<=46)
grp3=subset(subset(df,value>26),value<=80)
grp4=subset(subset(df,value>80),value<=100)

# 퍼센티지 계산
slice<-c(length(grp1[,1])/length(df[,1]),length(grp2[,1])/length(df[,1]),length(grp3[,1])/length(df[,1]),length(grp4[,1])/length(df[,1]))*100

# 파이차트 만들기
pie(slice,labels=paste(slice,'%',sep=''),main="My pie chart")

위 샘플 코드의 결과는 아래와 같이 출력됩니다.

4년 전 ∙ 0 ∙ 답글 달기 ∙ 공유 ∙ 신고 ∙ 차단