作者blueevil ()
看板R_Language
標題[問題] 依照消費狀況分類
時間Mon Oct 5 14:52:03 2015
[問題類型]:
我可以分類成功,想請問有比較簡潔的方法嗎？或別的方法？謝謝分享！
[問題敘述]:
要將消費者依照消費年份的狀態分成三類：回購顧客,新增顧客,流失顧客
[程式範例]:
http://ideone.com/RJ4ixk
number=50
data <- matrix(nrow = number, ncol = 3 )
colnames(data) <- c("ID", "Shop_year", "Region")
set.seed(1)
data[,1] <- c(sample(1:25, size=number, replace = T) )#ID
data[,2] <- c(sample(c("year2013","year2014","year2015"), size=number, replace= T, prob = c(0.1, 0.3, 0.6) ) )
data[,3] <- c(sample(c("北區一","北區二","北區三"), size = number,
replace = T, prob = c(0.5,0.3,0.2) ))
data <- data.frame(data)
library(reshape2)
library(reshape)
library(dplyr)
result<- cast(data, ID~Shop_year,value=c("Region"))
##分類成三組
data_new <- filter(result, year2015 !=0 & year2014 == 0)
data_new$level <- "新增"
data_lost <- filter(result, year2015 == 0)
data_lost$level <- "流失"
data_now <- filter(result, year2015 != 0 & year2014 !=0)
data_now$level <- "回購"
##合併檔案
data_combine <- rbind.data.frame(data_now, data_new, data_lost)
## 新增分組資料到原始檔案
data_final <- merge(data, data_combine)
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.120.192.175
※ 文章網址: https://webptt.com/m.aspx?n=bbs/R_Language/M.1444027929.A.FAD.html
※ 編輯: blueevil (59.120.192.175), 10/05/2015 15:01:52
2F：→ celestialgod: 上半部是把你的code更正到可以運作 10/05 15:29
3F：→ celestialgod: 下半部是用套件改寫 10/05 15:29
4F：→ celestialgod: 我不知道你filter怎麼可以跑的XDD 10/05 15:30
5F：→ blueevil: 是用 dplyr. 抱歉我忘了加上library(dplyr) 10/05 15:47
6F：→ blueevil: 謝謝您！！！ 10/05 15:48
※ 編輯: blueevil (59.120.192.175), 10/05/2015 16:33:39
8F：→ psinqoo: 我猜你可能也需要做 RFM模型 10/07 08:29
9F：→ blueevil: 謝謝p大分享！！！ 10/07 10:30