scatter plot

# Memasukkan data ke dalam vektor
jeniskelamin <- c(rep("laki-laki", 10), rep("perempuan", 10))

pendapatan <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

pengeluaran <- c(0.5, 0.9, 1.1, 2.0, 4.0, 5.0, 6.2, 5.5, 5.8, 4.5, 0.7, 1.4, 2.8, 3.3, 4.3, 5.0, 6.7, 5.9, 5.7, 8.0)

# Menggabungkan vektor menjadi data frame
data_keuangan <- data.frame(jeniskelamin, pendapatan, pengeluaran)

# Membuat scatter plot dasar
plot(data_keuangan$pendapatan, data_keuangan$pengeluaran,
     main = "Scatter Plot Pendapatan dan Pengeluaran",
     xlab = "Pendapatan",
     ylab = "Pengeluaran",
     col = ifelse(data_keuangan$jeniskelamin == "laki-laki", "blue", "red"),
     pch = 19)

# Menambahkan keterangan warna
legend("topleft",
       legend = c("Laki-laki", "Perempuan"),
       col = c("blue", "red"),
       pch = 19)