#Data Pengeluaran harian hariyol

Pengeluaran <- c("makanan","minuman","Detergen","Jajan","Listrik")
Pengeluaran
## [1] "makanan"  "minuman"  "Detergen" "Jajan"    "Listrik"
senin <- c(30,40,40,60,70)
senin
## [1] 30 40 40 60 70
View(senin)
selasa <- c(25,35,45,55,65)
selasa
## [1] 25 35 45 55 65
rabu <- c(15,34,54,55,70)
rabu 
## [1] 15 34 54 55 70
kamis <- c(22,34,32,56,44)
kamis
## [1] 22 34 32 56 44
jumat <- c(22,33,11,44,66)
jumat
## [1] 22 33 11 44 66

#Data Frame

#Penggabungan data
data1<- data.frame(Pengeluaran,senin,selasa,rabu,kamis,jumat)
data1
##   Pengeluaran senin selasa rabu kamis jumat
## 1     makanan    30     25   15    22    22
## 2     minuman    40     35   34    34    33
## 3    Detergen    40     45   54    32    11
## 4       Jajan    60     55   55    56    44
## 5     Listrik    70     65   70    44    66
#pembuatan boxplot
library(viridis)
## Warning: package 'viridis' was built under R version 4.3.2
## Loading required package: viridisLite
data2 <- data1[-1]
data2
##   senin selasa rabu kamis jumat
## 1    30     25   15    22    22
## 2    40     35   34    34    33
## 3    40     45   54    32    11
## 4    60     55   55    56    44
## 5    70     65   70    44    66
boxplot(data2, main="Data Pengeluaran Harian",col=viridis(3))

#Matriks Korelasi

cor(data2)
##            senin    selasa      rabu     kamis     jumat
## senin  1.0000000 0.9622504 0.8732194 0.8434768 0.8858808
## selasa 0.9622504 1.0000000 0.9696524 0.8080085 0.7397954
## rabu   0.8732194 0.9696524 1.0000000 0.7260352 0.5865310
## kamis  0.8434768 0.8080085 0.7260352 1.0000000 0.6480776
## jumat  0.8858808 0.7397954 0.5865310 0.6480776 1.0000000
hist(data1$senin, main ="pengeluaran hari senin", col=viridis(4),xlab="pengeluaran senin",ylab ="frekuensi" )