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 Westrock in the corp_tax tibble.
# A tibble: 1 × 5
company profit tax tax_rate industry
<chr> <dbl> <dbl> <dbl> <chr>
1 Westrock 710. -4.10 -0.00578 Miscellaneous manufacturing
Westrock is in the Miscellaneous manufacturing industry.
Westrock is in the Miscellaneous manufacturing industry. It had profit of $ 709.9 million and a tax of $ -4.1 million. Its tax rate was -0.6%
Let’s find the company in the Food & beverages & Tobacco industry with the highest profit.
result <- corp_tax %>%
filter(industry == "Food & beverages & tobacco") %>%
slice_max(profit, n=1)
result
# A tibble: 1 × 5
company profit tax tax_rate industry
<chr> <dbl> <dbl> <dbl> <chr>
1 Altria Group 8922 1911 0.214 Food & beverages & tobacco
Altria Group is the company in the food & beverages & tobacco industry with the highest profit. It had profit of $8922 million and tax of $1911 million. Its tax rate was 21.4%.