From 43432f279cc76078607aebf9d4cedff1c1507ce5 Mon Sep 17 00:00:00 2001 From: LinlyBoi Date: Sun, 19 Dec 2021 22:03:24 +0200 Subject: [PATCH] Fixed bar plot! --- Data.R | 21 ++++++++++++++++----- 1 file changed, 16 insertions(+), 5 deletions(-) diff --git a/Data.R b/Data.R index bceb74e..0e20b82 100644 --- a/Data.R +++ b/Data.R @@ -1,6 +1,7 @@ # Installing Packages #install.packages("ClusterR") -install.packages("cluster") +#Run install.packages if you haven't installed it before (only once) +#install.packages("cluster") # Loading package #library(ClusterR) @@ -9,21 +10,31 @@ library(cluster) #Read spreadsheet file grocery_entries <- read.csv(file.choose()) -#Compare cash and credit totals +#Compare cash and credit totals -Sewelam 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))) +barplot(CompCashCredit,names.arg = c('Cash','Credit'),horiz = FALSE,col = c(rgb(0,1,0),rgb(1,0,0))) + +#City and Total Spent comparison -Jimmy -#please visualise the data I am lazy - Sewelam -#Compare between ages and their total spent + + + +#Compare between ages and their total spent (Youssri) ages <- cbind(grocery_entries[6] , grocery_entries[3]) sum_ages <- aggregate(total ~ age,ages,sum) plot(sum_ages) +#Distribution of spending - Abdo + + + + +