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 in the corp_tax tibble.
# A tibble: 1 × 5
company profit tax tax_rate industry
<chr> <dbl> <dbl> <dbl> <chr>
1 NVR 923. 126. 0.137 Engineering & construction
NVR is in the Engineering & construction industry. It had a profit of $922.694 million and tax of $126.358 million. Its tax rate was 13.7%.
Let’s find the company in the Health care industry with the highest profit.
# A tibble: 1 × 5
company profit tax tax_rate industry
<chr> <dbl> <dbl> <dbl> <chr>
1 Anthem 4990 1128 0.226 Health care
Anthem is the company in Health care industry with the highest profit. It had a profit of $4990 million and tax of $1128 million. Its tax rate was 22.6%.