- PGO3 <- read.csv("E:/RCase/201612_ABBOTT_PromotionEvaluation/PGO.csv",
机缘巧合下, 楼主误入了
- PGO4 <- read.csv2("E:/RCase/201612_ABBOTT_PromotionEvaluation/PGO.csv",
- header = FALSE, sep = ";" , encoding = "UTF-8", stringsAsFactors = FALSE,
- fill = TRUE)
- > head(PGO4)
- V1
- 1 2014-01-01,NULL,NULL,常熟,JS,华东区,B/C/D ,NULL,NULL,NULL
- 2 2014-01-01,NULL,NULL,番禺,GD,华南区,B/C/D ,NULL,NULL,NULL
- 3 2014-01-01,NULL,NULL,泉州,FJ,华中区,B/C/D ,NULL,NULL,NULL
- 4 2014-01-01,Pediasure,PEDIASURE,郴州,UN,华中区,B/C/D ,1.1666,NULL,26.84600000
- 5 2014-01-01,Pediasure,PEDIASURE,淮安,JS,华东区,B/C/D ,0.7083,NULL,16.28500000
- 6 2014-01-01,Pediasure,PEDIASURE,金华,ZJ,华东区,B/C/D ,1.1249,NULL,26.40700000
然后就可以通过,的分割来找到需要的10个变量,如下
- DATE <- strsplit(PGO4$V1, ",") %>% sapply("[", 1)
- Stage <- strsplit(PGO4$V1, ",") %>% sapply("[", 2)%>%as.factor()
- ....



雷达卡





京公网安备 11010802022788号







