R Notebook

library(zoo)

Attaching package: <U+393C><U+3E31>zoo<U+393C><U+3E32>

The following objects are masked from <U+393C><U+3E31>package:base<U+393C><U+3E32>:

    as.Date, as.Date.numeric

urlData <- "https://community.tableau.com/servlet/JiveServlet/previewBody/1236-102-1-1149/Sample%20-%20Superstore%20Sales%20(Excel).xls"
destFile <- "sample.xls"
salesData <- read_excel(destFile, sheet = 1)
salesData2 <- read_excel(destFile, sheet = 2)
salesdata3 <- read_excel(destFile, sheet = 3)
salesData4 <- inner_join(salesData, salesData2)

Joining, by = "Order ID"

salesData5 <- inner_join(salesData4, salesdata3)

Joining, by = "Region"

sale <- salesData4 %>% mutate(salesRep = ifelse(Province == "Nunavut","Jerry", 
ifelse(Province == "Northwest Territories", "Adele", 
ifelse(Province == "Prince Edward Island", "Ann of Green Gables", ifelse(Province == "Manitoba", "Simon", 
ifelse(Province == "British Columbia", "Patricia", 
ifelse(Province == "Ontario", "Steven", 
ifelse(Province == "Nova Scotia", "Fundy", 
ifelse(Province == "Newfoundland", "Edith", 
ifelse(Province == "Quebec", "Maria Teresa", 
ifelse(Province == "New Brunswick", "Bruce",
ifelse(Province == "Saskachewan", "Big #Foot", 
ifelse(Province == "Yukon", "Jonathon", 
"Albert")))))))))))))
#saleSample <-saleSample [, -c(1:2,7,10:11)]
saleSample <- sale[sample(nrow(sale), 200), ]
saleSample$`Order Date` <- as.Date(saleSample$`Order Date`, format = "%Y-%m-%d")
saleSample$`Order Date` <- substr(saleSample$`Order Date`, 0,7)
rpivotTable(saleSample,rows=c("salesRep", "Order Date"), cols=c("Ship Mode","Product Category", "Order Priority"), aggregatorName="Average", rendererName="Treemap",width="100%", height="600px")