1 막대 그래프 데이터 준비하기
소스 창에 다음 코드를 입력합니다.
# 예약 완료, 주문 완료 데이터 연결 df_branch_sales_1 <- inner_join(reservation_r, order_info_r, by = "reserv_no") %>% select(branch, sales) %>% arrange(branch, sales) # 지점별로 매출 합산 df_branch_sales_2 <- df_branch_sales_1 %>% group_by(branch) %>% summarise(amt = sum(sales) / 1000) %>% arrange(desc(amt)) df_branch_sales_2 # 데이터셋 확인
코드를 실행하면 다음과 같습니다.
# A tibble: 25 x 2
branch amt
<chr> <dbl>
1 강남 4074
2 영등포 1516
3 종로 1428
4 용산 1366
5 서초 1295
6 송파 1190
7 서대문 1180
8 동작 1149
9 관악 1101
10 노원 1054
# ... with 15 more rows
dplyr로 각 지점별 매출을 합산했습니다.