② 데이터 그리기

# 누적 막대 그래프를 그려 gg 변수에 담음
gg <- ggplot(df_branch_items_percent, aes(x = Var1, y = percent_items, group = Var1, fill = Var2)) +
    geom_bar(stat = "identity")

# 제목과 범례 이름 지정
gg <- gg +
    labs(title = "지점별 주문 건수 그래프", x = "지점", y = "메뉴 아이템 판매비율", fill = "메뉴 아이템")
gg

코드를 차례대로 실행하면 지점별 아이템 주문 건수 비율 누적 막대 그래프가 그려집니다.

그림 9-6 | 지점별 아이템 주문 건수 비율 누적 막대 그래프

코드 풀이

막대 그래프를 만들어 gg 변수에 담은 후 타이틀과 축 제목, 범례를 붙여서 그래프를 그렸습니다.

분석 결과

결과를 확인해 보면 앞과는 다르게 강남, 마포, 서초 지점을 동일한 100% 비율로 놓고, 각 메뉴 아이템의 주문 비율을 확인하는 ‘지점별 메뉴 아이템 주문 건수 비율 누적 막대 그래프’가 그려진 것을 확인할 수 있습니다. 지점별 메뉴 아이템 주문 건수는 지점별로 구성 비율이 조금씩 다르지만, 역시 스테이크와 스페셜 세트 메뉴 아이템이 다수를 차지하고 있는 것을 알 수 있습니다.³ 강남 지점에서는 와인의 주문 건수도 확인됩니다.