고객별 예약 번호가 생성된 것을 확인할 수 있습니다.7 다음은 스테이크를 주문한 예약 번호 데이터셋을 만들어 보겠습니다.
# (B) 스테이크 주문 예약 번호 데이터셋 생성 df_steak_order_rsv_no <- order_info_r %>% filter(item_id == "M0005") %>% # 스테이크 주문이면 mutate(steak_order = "Y") %>% # steak_order 열 데이터를 ‘Y’로 만듦 arrange(reserv_no) head(df_steak_order_rsv_no) # 데이터셋 확인
코드를 실행하면 다음과 같습니다.
# A tibble: 6 x 6 order_no item_id reserv_no quantity sales steak_order-----주문 예약 번호가 스테이크(M0005)인 경우 ‘Y’ 값을 갖는 steak_order 열을 생성 <chr> <chr> <chr> <dbl> <dbl> <chr> 1 190603578341100100 M0005 2019060301 4 140000 Y 2 190606607189610010 M0005 2019060601 4 140000 Y 3 190616137200510010 M0005 2019061601 3 105000 Y 4 190708517202310010 M0005 2019070801 2 70000 Y 5 190710578348100100 M0005 2019071002 3 105000 Y 6 190718107186310010 M0005 2019071801 4 140000 Y # ... with 1 more variable: steak_order <chr>
7 총 182명에 대해 생성됩니다.