introduction to dyplr

Code and text for Quiz 3

load the packages that we need

library(tidyverse)
library(readxl)
library(here)

Read the data into R.

corp_tax

corp_tax<- read_excel(here("corp_tax.xlsx"))

lets look at Northern Trust in the corp_tax tibble.

Result <-corp_tax %>% 
  filter(company=="Northern Trust")

Result

# A tibble: 1 x 5
  company        profit   tax tax_rate industry 
  <chr>           <dbl> <dbl>    <dbl> <chr>    
1 Northern Trust   1076  133.    0.123 Financial

Northern Trust is in the Financial industry. It had profit of \$ 1076 million and tax of $ 132.8 million. Its tax rate was 12.3%

---

Lets find the company in the Computers, office equip, software, data industry with the highest profit

Result <-corp_tax %>% 
  filter(industry=='Computers, office equip, software, data') %>% 
  slice_max(profit, n=1)

Result

# A tibble: 1 x 5
  company profit   tax tax_rate industry                              
  <chr>    <dbl> <dbl>    <dbl> <chr>                                 
1 Apple    24352  4125    0.169 Computers, office equip, software, da…

Apple is the company is the Computers, office equip, software, data industry with the highest profit. It had profit of $ 2.4352^{4} million and tax of $ 4125 million. Its tax rate was 16.9%