Menyajikan Data Dalam Grafik

Pendapatan <- c(2, 3, 4, 5, 6)
Pengeluaran <- c(1, 2, 3, 4, 5)

plot(Pendapatan, Pengeluaran,
     main = "Hubungan Pendapatan dan Pengeluaran",
     xlab = "Pendapatan (juta rupiah)",
     ylab = "Pengeluaran (juta rupiah)")

simpan <- read.table("data3.1.csv",
                     header = TRUE,
                     sep = ",")

Pendapatan <- simpan$pendapatan

Pengeluaran <- simpan$pengeluaran

plot(Pendapatan, Pengeluaran)

Tahun <- c(2021, 2022, 2023, 2024, 2025)

Penjualan <- c(100, 150, 120, 200, 250)

plot(Tahun, Penjualan,
     type = "l",
     main = "Grafik Penjualan Tahunan",
     xlab = "Tahun",
     ylab = "Jumlah Penjualan")

Produk <- c("A", "B", "C")

Penjualan <- c(12, 5, 8)

barplot(Penjualan,
        names.arg = Produk,
        main = "Penjualan Produk",
        xlab = "Produk",
        ylab = "Jumlah Terjual")

Penjualan <- c(12, 5, 3)

Produk <- c("Produk A", "Produk B", "Produk C")

pie(Penjualan,
    labels = Produk,
    main = "Proporsi Penjualan Produk")

Nilai <- c(55, 60, 62, 65, 67,
           68, 70, 72, 73, 75,
           78, 80, 82, 85, 90)

hist(Nilai,
     main = "Histogram Nilai Ujian",
     xlab = "Nilai Ujian",
     ylab = "Frekuensi")