同一个客户在同一天有两套调查数据,混合在一起,从曲线上看很清晰,但是用r如何区分开?
我用kmeans聚类,日期被我转成int型了,数值接近的段会分错。求指导,帮忙提供代码,谢谢!
- > head(data[,c("DATE","VALUE1")],20) DATE VALUE1
- 1 16447 4344.55
- 15 16448 2777.87
- 18 16448 4344.60
- 68 16542 4552.08
- 71 16542 3224.97
- 3185 16556 4652.80
- 3188 16556 3290.46
- 3265 16557 4662.52
- 3268 16557 3299.44
- 3323 16558 4676.19
- 3326 16558 3310.46
- 3372 16560 4692.16
- 3375 16560 3329.63
- 3449 16559 4684.05
- 3452 16559 3320.99
- 3557 16561 4698.88
- 3571 16561 3336.50
- 3695 16562 4708.17
- 3698 16562 3337.11
- 3763 16563 4716.62
- > kc <- kmeans(data[,c("VALUE1","DATE")],2,algorithm="Forgy") #分类模型训练 Hartigan-Wong\Lloyd\Forgy\MacQueen
- Warning message:10迭代仍没有聚合
- > data1 <- data.frame(data,cluster=kc$cluster)
- > plot(data1[which(data1),c("DATE","VALUE1")], col = kc$cluster)


雷达卡



京公网安备 11010802022788号







