STREET FOOD

Cipak <- c(100, 95, 80,85,100)
Cipak

## [1] 100  95  80  85 100

Cilor <- c(90,70,80,85,90)
Cilor

## [1] 90 70 80 85 90

Cilung <- c(50,40,80,70,60)
Cilung

## [1] 50 40 80 70 60

Cimol <- c(90,80,75,55,50)
Cimol

## [1] 90 80 75 55 50

Cirambay <- c(80,75,65,70,90)
Cirambay

## [1] 80 75 65 70 90

Penjualan.5hari<-data.frame(Cilor,Cilung,Cimol,Cipak,Cirambay)
Penjualan.5hari

##   Cilor Cilung Cimol Cipak Cirambay
## 1    90     50    90   100       80
## 2    70     40    80    95       75
## 3    80     80    75    80       65
## 4    85     70    55    85       70
## 5    90     60    50   100       90

boxplot(Penjualan.5hari, main="Penjualan per hari selama 5 hari", col="green")

hist(Penjualan.5hari$Cilor, main="Penjualan per Hari Selama 5 Hari", col="pink")