Code and text for Quiz 3.
Load the packages we need.
Read the data into R
corp_tax <- read_excel(here("corp_tax.xlsx"))
Let’s look at Masco in the corp_tax table
Masco is in the Metals & metal products industry. It had profit of $788.60535 million and tax of $126.76535 million. Its tax rate 16.1%.
Let’s find the company in the Chemicals industry with the highest profit.
# A tibble: 1 x 5
company profit tax tax_rate industry
<chr> <dbl> <dbl> <dbl> <chr>
1 Sherwin-Williams 1307. 289. 0.221 Chemicals
Sherwin-Williams is the company in the Chemicals industry with the highest profit of $1307.278 million and tax of $288.755 million. Its tax rate 22.1%.