R - Airquality

 

 

 

 

 

 

# 기온이 가장 높은 날 - 8/28

airquality %>% select(Temp, Month, Day) %>%  
	arrange(desc(Temp)) %>% head(1)

 

# 6월에 발생한 가장 강한 바람 - 20.7

airquality %>% filter(Month==6) %>% select(Wind, Month, Day) %>%
	arrange(desc(Wind)) %>% head(1)

# 7월달의 평균 기온 - 83.9

airquality %>% filter(Month==7) %>% select(Temp, Month) %>%
	group_by(Month) %>% summarise(mean_temp = mean(Temp))

 

# 오존의 농도가 100을 넘는 날은 며칠이나 될까 - 7일

airquality %>% filter(Ozone>=100) %>% select(Ozone, Month, Day)