Retail

Sales <- data.frame(
                    BillID = c(501,502,503,504,505,506),
                    CustomerName = c("Aman","Riya","Karan","Neha","Rohit","Simran"),
                    Gender = factor(c('male','female','male','female','male',"female")),
                    Membership = c("Gold","Silver","Gold","None","Silver","Gold"),
                    Category = c("Grocery","Electronics","Clothing","Grocery","Electronics","Clothing"),
                    Quantity = c(10,1,3,8,2,5),
                    CostPrice = c(50,20000,800,60,18000,700),
                    SellingPrice= c(70,25000,1000,80,22000,900),
                    Discount = c(100,2000,150,50,500,300),
                    DeliveryType = c("Home","Store","Home","Store","Home","Home")
                    );

Sales

##   BillID CustomerName Gender Membership    Category Quantity CostPrice
## 1    501         Aman   male       Gold     Grocery       10        50
## 2    502         Riya female     Silver Electronics        1     20000
## 3    503        Karan   male       Gold    Clothing        3       800
## 4    504         Neha female       None     Grocery        8        60
## 5    505        Rohit   male     Silver Electronics        2     18000
## 6    506       Simran female       Gold    Clothing        5       700
##   SellingPrice Discount DeliveryType
## 1           70      100         Home
## 2        25000     2000        Store
## 3         1000      150         Home
## 4           80       50        Store
## 5        22000      500         Home
## 6          900      300         Home

#1. Add calculation-Based columns

Sales$GrossRevenue = Sales$Quantity * Sales$SellingPrice

Sales$TotalCost = Sales$Quantity * Sales$CostPrice

Sales$NetRevenue = Sales$GrossRevenue - Sales$Discount

Sales$Profit = Sales$NetRevenue - Sales$TotalCost

Sales

##   BillID CustomerName Gender Membership    Category Quantity CostPrice
## 1    501         Aman   male       Gold     Grocery       10        50
## 2    502         Riya female     Silver Electronics        1     20000
## 3    503        Karan   male       Gold    Clothing        3       800
## 4    504         Neha female       None     Grocery        8        60
## 5    505        Rohit   male     Silver Electronics        2     18000
## 6    506       Simran female       Gold    Clothing        5       700
##   SellingPrice Discount DeliveryType GrossRevenue TotalCost NetRevenue Profit
## 1           70      100         Home          700       500        600    100
## 2        25000     2000        Store        25000     20000      23000   3000
## 3         1000      150         Home         3000      2400       2850    450
## 4           80       50        Store          640       480        590    110
## 5        22000      500         Home        44000     36000      43500   7500
## 6          900      300         Home         4500      3500       4200    700