[CRMAJU2018] 고객데이터분석 using R

# https://cran.r-project.org/bin/windows/base/old/3.4.4/

# RFM 분석

# data : subset of UCI data

# 온라인 리테일러 샘플 데이터

Sample_OnRet.csv

# R 데이터분석 scrpt

CRM_aju_scrpt_201803.txt

# 고객세분화 연습용 샘플 데이터

cust_seg_smpl_280122.xlsx

# [서점 CSV]

cust_seg_smpl_280122.csv

# 탐색적 데이터 분석 연습용 추가 예제

# Wholesale dataset (UCI machine learning repository)
# https://archive.ics.uci.edu/ml/datasets/wholesale+customers

# import downloaded dataset from local computer

sales <- read.csv("C:/Users/Ebiz01/Downloads/Wholesalecustomersdata.csv")

head(sales)
nrow(sales)

colSums(sales)
barplot(colSums(sales))

plot(sales$Fresh, sales$Milk, pch=19, col=rgb(0,0,1,0.3), cex=0.5)

plot(sales$Fresh, sales$Milk, pch=19, col=rgb(0,0,sales$Channel-1,0.3), cex=0.5)

table(sales$Region)
barplot(table(sales$Region))

plot(sales$Fresh, sales$Milk, pch=17+sales$Region,
   col=rgb(0,0,sales$Channel-1,0.3), cex=1)

plot(log(sales$Fresh), log(sales$Milk), pch=17+sales$Region,
   col=rgb(0,0,sales$Channel-1,0.3), cex=1)

plot(log(sales$Detergents_Paper), log(sales$Delicassen), pch=17+sales$Region,
   col=rgb(0,0,sales$Channel-1,0.3), cex=1)

plot(sales$Detergents_Paper, sales$Delicassen, pch=17+sales$Region,
   col=rgb(0,0,sales$Channel-1,0.3), cex=1)

#------ log sales of two categories - by region and channel

cust_seg_smpl_280122.xlsx

0.01MB

CRM_aju_scrpt_201803.txt

0.09MB

Sample_OnRet.csv

5.17MB

cust_seg_smpl_280122.csv

0.0MB