30 lines
790 B
R
30 lines
790 B
R
# Installing Packages
|
|
#install.packages("ClusterR")
|
|
install.packages("cluster")
|
|
|
|
# Loading package
|
|
#library(ClusterR)
|
|
library(cluster)
|
|
|
|
#Read spreadsheet file
|
|
grocery_entries <- read.csv(file.choose())
|
|
|
|
#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)
|
|
|
|
|
|
|