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

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  ,]#这里用一个&