4 Data Visualization

clean_oneway_data %>% 
  ggboxplot(x = "Type", y = 'Sales',
            fill = "Type",
            palette = c("white", "pink", "orange", "green")) + 
  theme(legend.position = "none")