# Run this code block to load the Tidyverse package
.libPaths(new = "~/Rlibs")
library(tidyverse)
office_data <- read_csv('OfficeSupplies.csv')
print(office_data)
Office_data <- rownames_to_column(as_tibble(office_data),var = "orderdate")
print(office_data)
print(select(office_data, Region, Rep, Item))
(select(office_data, Region, Rep, Item))
print(distinct(Region, Rep, Item))
office_data.mutated <- mutate(office_data, TotalCost = Units * `Unit Price`)
print(select(office_data.mutated,OrderDate, Units,`Unit Price`, TotalCost))
by_Region <- group_by(office_data, Region)
print(summarise(by_Region,sum(Units), sum(`Unit Price`)))
Office_data.filtered <- filter(by_Region, Region == "Central")
print(Office_data.filtered)
by_Region <- group_by(office_data, Region, Rep, Units, `Unit Price` )
print(summarise(by_Region))