Tugas PSD

databaru <- read.csv("C:/Users/DELL 5320/Documents/COLLEGE'S LIFE/RPS dan Bahan Ajar/Pengantar Sains Data/New/df_customer.csv")

databaru_belanja5jt <- databaru[databaru$Total_Belanja > 5000000, ]

sort(table(databaru_belanja5jt$ID_Pelanggan), decreasing = TRUE)[1:2]

## 
## ID00007 ID00025 
##       7       7

databaru_perempuan_kota <- databaru[databaru$Jenis_Kelamin == "Perempuan" & databaru$Tempat_Tinggal == "Kota",]

freq_perempuan_kota <- table(databaru_perempuan_kota$ID_Pelanggan)

sum(freq_perempuan_kota > 5)

## [1] 0

databaru_belanja5jt <- databaru[databaru$Penghasilan > 5000000, ]

sort(table(databaru_belanja5jt$ID_Pelanggan), decreasing = TRUE) [1]

## ID00007 
##       9

databaru_desa_belanja5jt <- databaru[databaru$Tempat_Tinggal == "Desa" & databaru$Total_Belanja > 5000000, ]

table(databaru_desa_belanja5jt$Jenis_Kelamin)

## 
## Laki-laki Perempuan 
##        10        37

range(databaru_desa_belanja5jt$Penghasilan)

## [1]  3157783 11664452

databaru_desa_belanja5jt[order(databaru_desa_belanja5jt$Penghasilan), c("ID_Pelanggan", "Penghasilan")]

##     ID_Pelanggan Penghasilan
## 171      ID00049     3157783
## 259      ID00066     3373098
## 248      ID00094     3726214
## 53       ID00013     4481204
## 149      ID00048     4626369
## 148      ID00098     4849165
## 161      ID00088     5455465
## 134      ID00016     5575699
## 47       ID00034     5616450
## 233      ID00091     5671820
## 139      ID00075     5809025
## 62       ID00047     5940612
## 58       ID00038     5947963
## 145      ID00090     6005712
## 176      ID00055     6093467
## 56       ID00091     6128487
## 177      ID00008     6193172
## 229      ID00073     6455085
## 166      ID00067     6467267
## 219      ID00052     6499451
## 249      ID00031     6533837
## 231      ID00014     6571179
## 9        ID00014     6776730
## 250      ID00093     6856664
## 280      ID00063     6915574
## 257      ID00089     6928182
## 265      ID00008     6940985
## 289      ID00097     7028460
## 97       ID00096     7082568
## 254      ID00057     7212261
## 119      ID00094     7651846
## 5        ID00067     7773498
## 73       ID00031     7822419
## 65       ID00095     8032910
## 43       ID00027     8108645
## 209      ID00026     8141032
## 138      ID00055     8635642
## 197      ID00072     9024791
## 46       ID00089     9032981
## 61       ID00041     9231091
## 202      ID00058     9310352
## 82       ID00022     9331982
## 232      ID00006     9498495
## 106      ID00074     9657061
## 293      ID00013     9810087
## 220      ID00026    10832415
## 224      ID00090    11664452