This RMarkdown is a representation of method of payment by gender and what type of customers use what kind of method for payment i.e., what kind of card is being used using Pelican Store data.

dataset = read.csv("Pelicanstores.csv",header = TRUE)
print(head(dataset))
##   Customer Type.of.Customer Items Net.Sales Method.of.Payment Gender
## 1        1          Regular     1      39.5          Discover   Male
## 2        2      Promotional     1     102.4  Proprietary Card Female
## 3        3          Regular     1      22.5  Proprietary Card Female
## 4        4      Promotional     5     100.4  Proprietary Card Female
## 5        5          Regular     2      54.0        MasterCard Female
## 6        6          Regular     1      44.5        MasterCard Female
##   Marital.Status Age
## 1        Married  32
## 2        Married  36
## 3        Married  32
## 4        Married  28
## 5        Married  34
## 6        Married  44
g = ggplot(dataset, aes(x= Gender, fill = Method.of.Payment)) + facet_wrap(~Marital.Status) + geom_bar() + labs(y = "count", title = "Payment method by Gender")
ggplotly(g)
rpivotTable(dataset, rows = "Type.of.Customers", cols = "Method.of.Payment", vals = "Gender", aggregatorName = "Count", rendererName = "Bar Chart")
qplot(Type.of.Customer,Net.Sales, data = dataset,geom = "boxplot", fill = Type.of.Customer, main = "Net.Sales", xlab = "", ylab = "Net.Sales" )

rpivotTable(dataset)