对于一些R数据分析的体会

来源：互联网发布：hishop源码编辑：程序博客网时间：2024/04/28 05:25
action<-read.csv("C:\\Users\\Administrator\\Desktop\\20150806\\user_action_data3.csv", header=T )#导入数据action1<-action[action$CET_TYPE==1,]#选择某一行 sort(table(action1$USER_ID),decreasing =T)#排序head(sort(table(action1$CRT_DATE),decreasing =T))#取前六位barplot(head(sort(table(action1$CRT_DATE),decreasing =T)),main="cet_type=1情况下的时间出现频率图",     xlab="日期", ylab = "频率")head(sort(table(action1$USER_ID),decreasing =T))barplot(head(sort(table(action1$USER_ID),decreasing =T)),col ="red")action11<-action1[action1$USER_ID==118837,]#这里用一个&action12<-action1[action1$USER_ID==112872 ,]#这里用一个&action13<-action1[action1$USER_ID==116877,]#这里用一个&action2<-action[action$CET_TYPE==2,]head(sort(table(action2$CRT_DATE),decreasing =T))sort(table(action2$USER_ID),decreasing =T)head(sort(table(action2$USER_ID),decreasing =T))barplot(head(sort(table(action2$USER_ID),decreasing =T)),col ="red")action21<-action2[action2$USER_ID==118837  ,]#这里用一个&action22<-action2[action2$USER_ID==103826  ,]#这里用一个&action23<-action2[action2$USER_ID==116877  ,]#这里用一个&action3<-action[action$CET_TYPE==3,]head(sort(table(action3$CRT_DATE),decreasing =T))sort(table(action3$USER_ID),decreasing =T)head(sort(table(action3$USER_ID),decreasing =T))barplot(head(sort(table(action3$USER_ID),decreasing =T)),col ="red")action31<-action3[action3$USER_ID==118837  ,]#这里用一个&action32<-action3[action3$USER_ID==108825  ,]#这里用一个&action33<-action3[action3$USER_ID==116877   ,]#这里用一个&action5<-action[action$CET_TYPE==5,]head(sort(table(action5$CRT_DATE),decreasing =T))sort(table(action5$USER_ID),decreasing =T)head(sort(table(action5$USER_ID),decreasing =T))barplot(head(sort(table(action5$USER_ID),decreasing =T)),col ="red")action51<-action5[action5$USER_ID==112872  ,]#这里用一个&action52<-action3[action5$USER_ID==116877  ,]#这里用一个&action53<-action3[action5$USER_ID==118837  ,]#这里用一个&action6<-action[action$CET_TYPE==6,]head(sort(table(action6$CRT_DATE),decreasing =T))sort(table(action6$USER_ID),decreasing =T)head(sort(table(action6$USER_ID),decreasing =T))barplot(head(sort(table(action6$USER_ID),decreasing =T)),col ="red")action61<-action3[action6$USER_ID==112872  ,]#这里用一个&action62<-action3[action6$USER_ID==116877  ,]#这里用一个&action63<-action3[action6$USER_ID==103826  ,]#这里用一个&
发现企业用R分析数据，还需要其他工具的配合才会更好更快。结合spss，数据库等技术更好更快。
0 0