june_C <- mutate(filter(airquality, Month == 6), Temp_C = (Temp-32)*(5/9))