Tugas UAS Mandarel

data("airquality")
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

result <- airquality %>%
  mutate(Ozone_Level = ifelse(Ozone > 60, "High", "Low")) %>%
  select(Ozone, Solar.R, Temp, Month, Ozone_Level) %>%
  filter(Month == 5) %>%
  summarise(
    Avg_Ozone = mean(Ozone, na.rm = TRUE),
    Avg_Solar = mean(Solar.R, na.rm = TRUE),
    Avg_Temp = mean(Temp, na.rm = TRUE)
  ) %>%
  arrange(desc(Avg_Ozone))

print(result)

##   Avg_Ozone Avg_Solar Avg_Temp
## 1  23.61538  181.2963 65.54839