ecommerce

ecommerce <- data.frame(
  OrderID = c(1001,1002,1003,1004,1005),
  CustomerName = c("Aman","Riya","Karan","Neha","Rohit"),
  Category = factor(c("Electronics","Clothing","Electronics","Home","Clothing")),
  PaymentMethod = factor(c("UPI","Card","Card","Cash","UPI")),
  Quantity = c(1,3,2,1,4),
  PricePerUnit = c(25000,1500,20000,5000,1200),
  Discount = c(2000,300,1500,500,NA),
  DeliveryDays = c(3,5,2,4,6)
)

ecommerce

##   OrderID CustomerName    Category PaymentMethod Quantity PricePerUnit Discount
## 1    1001         Aman Electronics           UPI        1        25000     2000
## 2    1002         Riya    Clothing          Card        3         1500      300
## 3    1003        Karan Electronics          Card        2        20000     1500
## 4    1004         Neha        Home          Cash        1         5000      500
## 5    1005        Rohit    Clothing           UPI        4         1200       NA
##   DeliveryDays
## 1            3
## 2            5
## 3            2
## 4            4
## 5            6