uts statistika

data_toko <- data.frame(
  Tahun  = c(2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020),
  Gula   = c(50, 70, 100, 120, 110, 100, 120, 135, 140, 150, 145),
  Minyak = c(80, 85, 90, 100, 120, 125, 135, 140, 150, 190, 195),
  Sabun  = c(55, 70, 80, 95, 80, 100, 105, 110, 120, 100, 130)
)


write.csv(data_toko, "datatoko.csv", row.names = FALSE)


datatoko <- read.csv("datatoko.csv")
print("=== DATA PENJUALAN TOKO A ===")

## [1] "=== DATA PENJUALAN TOKO A ==="

print(datatoko)

##    Tahun Gula Minyak Sabun
## 1   2010   50     80    55
## 2   2011   70     85    70
## 3   2012  100     90    80
## 4   2013  120    100    95
## 5   2014  110    120    80
## 6   2015  100    125   100
## 7   2016  120    135   105
## 8   2017  135    140   110
## 9   2018  140    150   120
## 10  2019  150    190   100
## 11  2020  145    195   130

print("=== RINGKASAN STATISTIK (SUMMARY) ===")

## [1] "=== RINGKASAN STATISTIK (SUMMARY) ==="

summary(datatoko)

##      Tahun           Gula           Minyak          Sabun      
##  Min.   :2010   Min.   : 50.0   Min.   : 80.0   Min.   : 55.0  
##  1st Qu.:2012   1st Qu.:100.0   1st Qu.: 95.0   1st Qu.: 80.0  
##  Median :2015   Median :120.0   Median :125.0   Median :100.0  
##  Mean   :2015   Mean   :112.7   Mean   :128.2   Mean   : 95.0  
##  3rd Qu.:2018   3rd Qu.:137.5   3rd Qu.:145.0   3rd Qu.:107.5  
##  Max.   :2020   Max.   :150.0   Max.   :195.0   Max.   :130.0

plot(datatoko$Tahun, datatoko$Gula, type = "o", col = "blue", pch = 16, lwd = 2,
     main = "Penjualan Gula Toko A (2010-2020)", 
     xlab = "Tahun", ylab = "Jumlah Terjual")
grid()

plot(datatoko$Tahun, datatoko$Minyak, type = "o", col = "red", pch = 17, lwd = 2,
     main = "Penjualan Minyak Toko A (2010-2020)", 
     xlab = "Tahun", ylab = "Jumlah Terjual")
grid()

plot(datatoko$Tahun, datatoko$Sabun, type = "o", col = "darkgreen", pch = 15, lwd = 2,
     main = "Penjualan Sabun Toko A (2010-2020)", 
     xlab = "Tahun", ylab = "Jumlah Terjual")
grid()

plot(datatoko$Tahun, datatoko$Minyak, type = "o", col = "red", pch = 17, lwd = 2,
     ylim = c(40, 210), 
     main = "Gabungan Data Penjualan Toko A (2010-2020)",
     xlab = "Tahun", ylab = "Jumlah Terjual")

lines(datatoko$Tahun, datatoko$Gula, type = "o", col = "blue", pch = 16, lwd = 2)
lines(datatoko$Tahun, datatoko$Sabun, type = "o", col = "darkgreen", pch = 15, lwd = 2)
grid()

legend("topleft", legend = c("Minyak", "Gula", "Sabun"),
       col = c("red", "blue", "darkgreen"), pch = c(17, 16, 15), lty = 1, lwd = 2)