Latihan Mandarel Pertemuan 13

Data jumlah penjualan suatu produk dari perusahaan tertentu di beberapa negara.

Membuat Data Frame

Penjualan <- data.frame(
  Produk = c("Crispy_chiken", "Es krim", "Burger", "Pizza", "Kopi"),
  Tiongkok = c(3000, 2500, 4500, 3500, 2750),
  Indonesia = c(4750, 4200, 3200, 2000, 3000),
  Malaysia = c(4500, 3500, 3000, 3500, 2500),
  Inggris = c(2000, 1000, 4500, 4700, 3000),
  Jepang = c(3500, 1500, 2000, 3700, 3250)
)

print(Penjualan)

##          Produk Tiongkok Indonesia Malaysia Inggris Jepang
## 1 Crispy_chiken     3000      4750     4500    2000   3500
## 2       Es krim     2500      4200     3500    1000   1500
## 3        Burger     4500      3200     3000    4500   2000
## 4         Pizza     3500      2000     3500    4700   3700
## 5          Kopi     2750      3000     2500    3000   3250

Membuat BoxPlot

boxplot(Penjualan$Tiongkok,Penjualan$Indonesia, Penjualan$Malaysia, Penjualan$Inggris, Penjualan$Jepang, main="Plot Boxplot", col="orange")

##menghitung korelasi

cor(Penjualan$Tiongkok, Penjualan$Indonesia)

## [1] -0.3936378

cor(Penjualan$Indonesia, Penjualan$Malaysia)

## [1] 0.5851141

cor(Penjualan$Tiongkok, Penjualan$Inggris)

## [1] 0.8047063

cor(Penjualan$Tiongkok, Penjualan$Jepang)

## [1] -0.06461707

cor(Penjualan$Indonesia, Penjualan$Jepang)

## [1] -0.3265043

cor(Penjualan$Inggris, Penjualan$Indonesia)

## [1] -0.8239416