코드를 풀어서 살펴보면 다음과 같습니다.

① order_info_r %>% ② group_by(reserv_no) %>% ③ mutate(avg = mean(sales))

먼저 ① order_info_r 테이블의 데이터 값을 다음으로 넘기고, ② reserv_no 열을 기준으로 그룹으로 묶습니다. 이후 그룹으로 묶인 sales 열에 대해 ③ mutate() 함수로 mean() 함수를 적용해서 avg라는 새로운 열을 생성하여 출력합니다. 결과적으로 reserv_no 2019122810의 sales 합은 86000이고, reserv_no를 두 개 가지고 있으므로 평균은 43000이 됩니다.