data= read.table(file.choose(),header=TRUE,sep=";")
data
## Jeniskelamin Pendapatan Pengeluaran
## 1 Laki-laki 1 0.5
## 2 Laki-laki 2 0.9
## 3 Laki-laki 3 1.1
## 4 Laki-laki 4 2.0
## 5 Laki-laki 5 4.0
## 6 Laki-laki 6 5.0
## 7 Laki-laki 7 6.2
## 8 Laki-laki 8 5.5
## 9 Laki-laki 9 5.8
## 10 Laki-laki 10 4.5
## 11 Perempuan 1 0.7
## 12 Perempuan 2 1.4
## 13 Perempuan 3 2.8
## 14 Perempuan 4 3.3
## 15 Perempuan 5 4.3
## 16 Perempuan 6 5.0
## 17 Perempuan 7 6.7
## 18 Perempuan 8 5.9
## 19 Perempuan 9 5.7
## 20 Perempuan 10 8.0
plot(data[2:3],main="Pendapatan dan Pengeluaran per-Bulan, dalam Jutaan Rupiah")
