이제 만들어진 음식을 데커레이션할 차례입니다. 7장 UNIT 06에서 만든 my_first_cook 요리를 데커레이션해 보겠습니다. 다음과 같이 코드를 작성해서 my_first_cook 변수에 담습니다.
my_first_cook <- order_info_r %>% mutate(reserv_month = substr(reserv_no, 1, 6)) %>% group_by(item_id, reserv_month) %>% summarise(avg_sales = mean(sales)) %>% arrange(item_id, reserv_month) my_first_cook # A tibble: 65 x 3 # Groups: item_id [10] item_id reserv_month avg_sales <chr> <chr> <dbl> 1 M0001 201906 48000 2 M0001 201907 68000 3 M0001 201908 56000 4 M0001 201909 66000 5 M0001 201910 92000 6 M0001 201911 68308. 7 M0001 201912 153143. 8 M0002 201906 24000 9 M0002 201907 38000 10 M0002 201908 21600 # ... with 55 more rows