Amazon 2017 Purchases

library(tidyverse)
library(knitr)
library(kableExtra)

ggplot(amazondata, aes(amazondata$`Item Total`)) + 
  geom_histogram(bins = 10, aes(fill = amazondata$Category)) +
  xlab("Item total price") +
  labs(fill = "Category") +
  ggtitle("Amazon 2017 Purchase history count vs. total price")

ggplot(amazondata, aes(amazondata$Category ,amazondata$`Item Total`)) + 
  geom_boxplot(aes(fill = amazondata$Category)) +
  coord_flip() +
  theme_dark() +
  ylab("Item total (Subtotal + tax)") +
  xlab("Category") +
  theme(legend.position = "none")

ggplot(amazondata, aes(amazondata$`Item Total`, amazondata$Category)) + 
  geom_point(aes(color = amazondata$Category)) +
  theme(legend.position = "none") + 
  xlab("Item total (Subtotal + tax)") +
  ylab("Category") 

amazondata2 <- amazondata %>% select(`Item Total`, Category)

data1 <- group_by(amazondata2, Category) %>% summarise_all(funs(count=n(), mean, median, max, min, sum))

kable(data1, "html", escape = F) %>%
  kable_styling("striped", full_width = T) %>%
  column_spec(1, bold = T)