From 7089866dc9a7866ddd9936eb9fbde2a6eda0e037 Mon Sep 17 00:00:00 2001
From: LinlyBoi <thatguymax9001@gmail.com>
Date: Sun, 19 Dec 2021 22:01:48 +0200
Subject: [PATCH] Formatting the code and tidying up!!!

---
 Data.R | 28 +++++++++++++++++-----------
 1 file changed, 17 insertions(+), 11 deletions(-)

diff --git a/Data.R b/Data.R
index f6b7612..bceb74e 100644
--- a/Data.R
+++ b/Data.R
@@ -1,23 +1,29 @@
 # Installing Packages
-install.packages("ClusterR")
+#install.packages("ClusterR")
 install.packages("cluster")
 
 # Loading package
-library(ClusterR)
+#library(ClusterR)
 library(cluster)
 
+#Read spreadsheet file
 grocery_entries <- read.csv(file.choose())
-#grocery_entries <- read_excel("~/College/Data Science/Project/grc.xlsx")
-cash_credit <- cbind(grocery_entries[3], grocery_entries[8])
-#
-#sum_cash <-sum(cash_credit[which(cash_credit$paymentType=='Cash'),1])
-#sum_credit <-sum(cash_credit[which(cash_credit$paymentType=='Credit'),1])
 
-#CompCashCredit <- c(sum_cash,sum_credit)
+#Compare cash and credit totals
+
+cash_credit <- cbind(grocery_entries[3], grocery_entries[8])
+sum_cash <-sum(cash_credit[which(cash_credit$paymentType=='Cash'),1])
+sum_credit <-sum(cash_credit[which(cash_credit$paymentType=='Credit'),1])
+CompCashCredit <- c(sum_cash,sum_credit)
+barplot(CompCashCredit,names.arg = c('Cash','Credit'),horiz = FALSE,col = ((0,100,0),(100,0,0)))
+
+
 #please visualise the data I am lazy - Sewelam
+
+#Compare between ages and their total spent
 ages <- cbind(grocery_entries[6] , grocery_entries[3])
 sum_ages <- aggregate(total ~ age,ages,sum)
 plot(sum_ages)
-#First Github Commitment! 23
-#Don't be lazy swelam --Yousri
-table()
\ No newline at end of file
+
+
+