Code and text for Quiz 3.
Load the packages that we need.
Read the data into R.
corp_tax<-read_excel(here("corp_tax.xlsx"))
Lets look at Masco in the corp_tax tibble.
# A tibble: 1 × 5
company profit tax tax_rate industry
<chr> <dbl> <dbl> <dbl> <chr>
1 Masco 789. 127. 0.161 Metals & metal products
Masco is in the Metals & metal products industry. It had a profit of $788.60535 million and tax of $126.76535 million. Its tax rate was 16.1 %.
Lets find the company in the Utilities, gas and electric industry with the highest profit.
result<-corp_tax %>% filter(industry=="Utilities, gas and electric") %>% slice_max(profit, n=1)
result
# A tibble: 1 × 5
company profit tax tax_rate industry
<chr> <dbl> <dbl> <dbl> <chr>
1 NextEra Energy 7289 30 0.00412 Utilities, gas and electric
NextEra Energy is the company in the Utilities, gas and electric industry with the highest profit. It had a profit of $7289 million and tax of $30 million. Its tax rate was 0.4 %.