두 테이블에 대해 reserv_no가 일치하는 행들만 출력된 것을 확인할 수 있습니다. select() 함수를 사용해서 알아보기 쉽게 열 몇 개만 선택해 보겠습니다. 지금부터는 코드가 길어지기 때문에 파이프 연산자(%>%)를 기준으로 Enter를 입력해서 줄 바꾸기를 적용하겠습니다. 실행 방법은 앞과 마찬가지로 실행하려는 코드 라인에 커서를 두고 Ctrl+Enter를 누르거나 실행하려는 코드를 블록으로 선택해서 Ctrl+Enter를 누릅니다.
inner_join(reservation_r, order_info_r, by = "reserv_no") %>%-----Enter arrange(reserv_no, item_id) %>%-----Enter select(reserv_no, customer_id, visitor_cnt, cancel, order_no, item_id, sales)-----Ctrl+Enter # A tibble: 391 x 7 reserv_no customer_id visitor_cnt cancel order_no item_id sales <chr> <chr> <dbl> <chr> <chr> <chr> <dbl> 1 2019060301 W1327803 4 N 190603578341100100 M0005 140000 2 2019060601 W1328432 4 N 190606607189610010 M0005 140000 3 2019060601 W1328432 4 N 190606607189610010 M0010 12000 4 2019060701 W1328432 4 N 190607671896100100 M0001 48000 5 2019061601 W1330464 3 N 190616137200510010 M0005 105000 6 2019061801 W1327595 2 N 190618107186310010 M0001 48000 7 2019062001 W1331108 1 N 190620137203810010 M0008 10000 8 2019062201 W1328505 2 N 190622378311100100 M0001 48000 9 2019062601 W1333008 1 N 190626578341100100 M0009 8000 10 2019062901 W1330211 4 N 190629107832810010 M0002 24000 # ... with 381 more rows
* 지정하는 열만 출력
* reservation_r 테이블
* order_info_r 테이블