Creating Initial Dataframe

grocery <- read.csv("data_input/Grocery.csv")
head(grocery)

library(stringr)

#Check to data type
str(grocery)

## 'data.frame':    1757 obs. of  9 variables:
##  $ Sub.Category       : chr  "Bakery & Desserts" "Bakery & Desserts" "Bakery & Desserts" "Bakery & Desserts" ...
##  $ Price              : num  57 160 45 40 60 ...
##  $ Discount           : num  0 0 0 0 0 0 0 0 0 0 ...
##  $ Rating             : num  4.3 5 4.1 4.7 4.5 4.4 4.7 4.4 4.4 5 ...
##  $ Count_of_Reviews   : int  265 1 441 9459 758 369 2241 232 1679 2 ...
##  $ Title              : chr  "David’s Cookies Mile High Peanut Butter Cake, 6.8 lbs (14 Servings)" "The Cake Bake Shop 8\" Round Carrot Cake (16-22 Servings)" "St Michel Madeleine, Classic French Sponge Cake 100 - count" "David's Cookies Butter Pecan Meltaways 32 oz, 2-pack" ...
##  $ Currency           : chr  "$" "$" "$" "$" ...
##  $ Feature            : chr  "\"10\"\" Peanut Butter Cake\nCertified Kosher OU-D\n14 Servings" "Spiced Carrot Cake with Cream Cheese Frosting   Silk Cherry Blossom Flowers (Not Edible)   No Nuts or Raisins  "| __truncated__ "100 count\nIndividually wrapped\nMade in and Imported from France\nFree-range eggs\nNon-GMO ingredients" "Butter Pecan Meltaways\n32 oz 2-Pack\nNo Preservatives\nCertified Kosher OU-D\nContains Nuts" ...
##  $ Product.Description: chr  "A cake the dessert epicure will die for!Our Top Selling Cake! Fudge brownie base, layered in velvety smooth pea"| __truncated__ "Due to the perishable nature of this item, orders do NOT ship over the weekend. Orders can only be delivered on"| __truncated__ "Moist and buttery sponge cakes with the traditional European madeleine flavor of almond. The Classic Madeleine "| __truncated__ "These delectable butter pecan meltaways are the perfect snack or dessert for the whole family. The treats are m"| __truncated__ ...

Missing Value and Duplicates

# Check  General Missing Value
anyNA(grocery)

## [1] FALSE

# Check Missing Value by column
colSums(is.na(grocery))

##        Sub.Category               Price            Discount              Rating 
##                   0                   0                   0                   0 
##    Count_of_Reviews               Title            Currency             Feature 
##                   0                   0                   0                   0 
## Product.Description 
##                   0

Summary : There is no missing value in this dataset

Removing unnecessary columns

In this part we will removing columns not used in this data analysis process due to there is no impact in gaining insight and for decisinons making. There are three columns to be dropped :

• ‘Currency’ -> index columns number 6
• ‘Feature’ -> index columns numbe 7
• ‘Product Description’ -> index columns numbe 8

grocery <- grocery[ , -c(7,8,9)]
grocery

Changing data type

• Sub.Category : from chr to factor

grocery$Sub.Category <- as.factor(grocery$Sub.Category)
str(grocery$Sub.Category)

##  Factor w/ 19 levels "Bakery & Desserts",..: 1 1 1 1 1 1 1 1 1 1 ...

names(grocery)[names(grocery) == "Title"] <- "Item_name"
grocery

🏄 Recomendation product based on the rating from customers

grocery %>% 
  group_by(Sub.Category) %>% 
    summarise(avg_rating = median(Rating)) %>% 
    arrange(-avg_rating) %>% 
  ungroup()

Insight:

• “Breakfast” is the subcategory that has the highest rating from customers around 4.8 out of 5 stars
• Top 3 subcategories with the highest average customer ratings are: Breakfast, Cleaning Supplies, Laundry Detergent & Supplies, Organic, and Deli.

grocery_HR <- grocery[ grocery$Rating > 4.5, ]
grocery_HR

plot(x = as.factor(grocery_HR$Rating))

plot(x = as.factor(grocery_HR$Sub.Category), y = grocery_HR$Rating)

🏄 filter top_6 sub.category (Breakfast, Cleaning Supplies,Organic,Deli,Gift Baskets, and Bakery & Desserts ) product with rating > 4.5 for gets recommendation product from this grocery based on rating

grocery[grocery$Sub.Category == "Breakfast" & grocery$Rating > 4.5 & grocery$Count_of_Reviews > 0, ]

Insight :

• Product Rekomendation from sub category “Breakfast” are :

1. uTrail Keto Nut Granola Blueberry Cinnamon 2-Pack (22 oz each) with rating 4.8 out of 5 stars from 1275 customer reviews and price/unit 28.99 USD.
2. NuTrail Keto Nut Granola Honey Nut 2-pack (22 oz. each) with rating 4.7 out of 5 stars from 149 customer reviews and price/unit 36.99 USD.

• For “Nut Granola Blueberry Cinnamon 2-Pack (22 oz each),” this store usually provides a discount of 8%.

grocery[grocery$Sub.Category == "Cleaning Supplies" & grocery$Rating > 4.5 & grocery$Count_of_Reviews > 0, ]

Insight :

• Product Rekomendation from sub category “Cleaning Supplies” are :

1. “Nellie’s Laundry Soda, 400 Loads” with rating 4.8 out of 5 stars from 2658 customer reviews and price/unit 42.99 USD.
2. “ECOS HE Liquid Laundry Detergent, Free & Clear, 210 Loads, 210 fl oz, 2-count” with rating 4.7 out of 5 stars from 2060 customer reviews and price/unit 38.99 USD.
3. “Clorox Clean-Up All Purpose Cleaner with Bleach, Original, 32 oz & 180 oz Refill” with rating 4.6 out of 5 stars from 1571 customer reviews and price/unit 22.99 USD.

• For “Nellie’s Laundry Soda, 400 Loads” this store usually provides a discount of 12%.

grocery[grocery$Sub.Category == "Organic" & grocery$Rating > 4.5 & grocery$Count_of_Reviews > 0, ]

Insight :

• Product Rekomendation from sub category “Organic” are :

1. “Ruta Maya Organic Medium Roast Whole Bean Coffee 5 lb” with rating 4.7 out of 5 stars from 2525 customer reviews and price/unit 44.99 USD.
2. “Ruta Maya Organic Dark Roast Coffee, 5 lbs” with rating 4.8 out of 5 stars from 2216 customer reviews and price/unit 44.99 USD.
3. “Jose’s 100% Organic Mayan Whole Bean Coffee 2.5 lb, 2-pack” with rating 4.6 out of 5 stars from 1822 customer reviews and price/unit 44.99 USD.
4. “JMade In Nature Organic Calimyrna Figs 40 oz, 3-pack” with rating 4.6 out of 5 stars from 1819 customer reviews and price/unit 49.99 USD.

grocery[grocery$Sub.Category == "Deli" & grocery$Rating > 4.5 & grocery$Count_of_Reviews > 0, ]

Insight :

• Product Rekomendation from sub category “Deli” are :

1. “Plaza Osetra Farmed Bulgarian Sturgeon Caviar 2 oz, 3-pack” with rating 4.6 out of 5 stars from 2452 customer reviews and price/unit 199.99 USD.
2. “Covap Jamon Iberico Bellota Ham Leg with Stand and Knife, 15.4 lbs.” with rating 4.6 out of 5 stars from 516 customer reviews and price/unit 649.99 USD.

• For “Plaza Osetra Farmed Bulgarian Sturgeon Caviar 2 oz, 3-pack” this store usually provides a discount of 5%.

grocery[grocery$Sub.Category == "Gift Baskets" & grocery$Rating > 4.5 & grocery$Count_of_Reviews >0 , ]

Insight :

• Product Rekomendation from sub category “Deli” are :

1. “Vacaville Fruit Company 56 oz Dried Fruit & Nut Wooden Gift Tray” with rating 4.7 out of 5 stars from 3083 customer reviews and price/unit 39.99 USD.
2. ” Vacaville Dried Mixed Fruit, 34 oz” with rating 4.7 out of 5 stars from 1143 customer reviews and and price/unit 34.99 USD.
3. “Popcornopolis Ultimate Classic Assorted Tall Cones, Variety, 24-count” with rating 4.7 out of 5 stars from 1103 customer reviews and and price/unit 109.99 USD.

grocery[grocery$Sub.Category == "Bakery & Desserts" & grocery$Rating > 4.5 & grocery$Count_of_Reviews > 0, ]

Insight :

• Product Rekomendation from sub category “Bakery & Desserts” are :

1. “David’s Cookies Butter Pecan Meltaways 32 oz, 2-pack” with rating 4.7 out of 5 stars from 9459 customer reviews and price/unit 39.99 USD.
2. “La Grande Galette French Butter Cookies, 1.3 lb, 6-pack” with rating 4.7 out of 5 stars from 2241 customer reviews and and price/unit 74.99 USD.

🏄 The item_name often receive discounts in this grocery store.

grocery %>% 
  select(Item_name,Sub.Category,Discount) %>% 
  arrange(-Discount)

insight :

• The highest discount is given for the “meat & seafood,”Deli”, and “Gift Baskets” category around 50-80%.

grocery %>% 
  select(Item_name,Sub.Category,Discount) %>% 
  filter(Sub.Category == "Meat & Seafood" , Discount > 0.00) %>% 
  arrange(-Discount)

Insight :

• This store often offers discounts of 30-80% for the sub-category of meat & seafood products.

grocery %>% 
  select(Item_name,Sub.Category,Discount) %>% 
  filter(Sub.Category == "Deli", Discount > 0.00) %>% 
  arrange(-Discount)

Insight :

• This store often offers discounts of 30-50% for the sub-category of “Deli” products.

grocery %>% 
  select(Item_name,Sub.Category,Discount) %>% 
  filter(Sub.Category == "Gift Baskets", Discount > 0.00) %>% 
  arrange(-Discount)

Insight :

• This store often offers discounts of 20-50% for the sub-category of “Gift Baskets” products.

🏄 The item_name products that receive the most reviews

grocery_reviews <- grocery %>% 
  select(Item_name,Sub.Category,Count_of_Reviews,Rating) %>% 
  filter(Count_of_Reviews > 0) %>% 
  arrange(-Count_of_Reviews)
grocery_reviews

Insight :

• The product with the highest number of customer reviews is ‘50-stem Red Roses’ with a total of 18,098 reviews and an average rating of 4.2 and “The Fruit Company Classic 5-box Tower” with a total of 15,616 reviews and an average rating of 4.5.

• The subcategory of products with the highest number of customer reviews is Floral