누적 막대 그래프가 그려졌습니다. 누적 막대 그래프만으로도 스테이크의 매출 비중이 가장 높은 것을 알 수 있습니다. 그럼 다시 누적 막대 그래프를 사용해서 파이 차트를 그려 보겠습니다.

# 파이 차트 그리기
gg <- ggplot(df_pie_graph, aes(x = "", y = amt_item, fill = product_name)) +
    geom_bar(stat = "identity") +
    coord_polar("y", start = 0)

gg

코드를 실행하면 다음 그림과 같은 파이 차트가 그려집니다.

그림 8-20 | 누적 막대 그래프로 파이 차트 그리기

coord_polar() 함수를 추가해서 y축 값을 기준으로 0부터 시작하는 파이 차트를 그렸습니다.