tugas 2

df_cutomer <- read.csv("df_customer.csv")
q1 <- df_cutomer [df_cutomer$Total_Belanja > 5000000,]
q1 <- sort(table(q1$ID_Pelanggan), decreasing = TRUE)
head(q1)

## 
## ID00007 ID00025 ID00026 ID00089 ID00053 ID00079 
##       7       7       6       6       5       5

dari hasil tersebut menunjukkan customer yang sering membeli dengan total belanja diatas 5jt