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"))
Let’s look at NVR at the corp_tax tibble.
# A tibble: 1 x 5
company profit tax tax_rate industry
<chr> <dbl> <dbl> <dbl> <chr>
1 Westrock 710. -4.10 -0.00578 Miscellaneous manufacturing
NVR is in the Miscellaneous manufacturing industry. It had profit of $709.9 million and tax of $-4.1 million. Its tax rate was -0.6%.
Let’s find the company in the Motor vehicles and parts industry with the highest profit.
result <- corp_tax %>%
filter(industry == 'Motor vehicles and parts') %>%
slice_max(profit, n=1)
result
# A tibble: 1 x 5
company profit tax tax_rate industry
<chr> <dbl> <dbl> <dbl> <chr>
1 General Motors 4320 -104 -0.0241 Motor vehicles and parts
General Motors is the company in Motor vehicles and parts industry with the highest profit. It had profit of $4320 million and tax of $-104 million. Its tax rate was -2.4%.