answer questions 2-5 and then comment on the quality filtered_bball \% na.omit() filtered_bball \% filter(!str_detect(pos, "-")) \%>\% droplevels() filter(!str_detect(pos, "-")) \%>\% droplevels() Q2 Create an appropriate plot with "pts_per_g" (on x axi 1 answer