Please use R. The dataset is nycflights13 in R. Thank you!

Select from flights observations that are for 3 carrier UA, AA or DL and for distance greater than 700 miles. Compute the average of arr_delay and the average of such distance for each month and each of the 3 carriers. Plot the average arr_delay against the average of such distance per month, use carrier as facet, and connect the points for each carrier via one type of dashed line. Code the 3 levels of carrier as ai, B1.2 and glo, and display them in the strip texts. Select from flights observations that are for 3 carrier UA, AA or DL and for distance greater than 700 miles. Compute the average of arr_delay and the average of such distance for each month and each of the 3 carriers. Plot the average arr_delay against the average of such distance per month, use carrier as facet, and connect the points for each carrier via one type of dashed line. Code the 3 levels of carrier as ai, B1.2 and glo, and display them in the strip texts