More Related Content
Viewers also liked (13)
Similar to Call Center statistics with R (20)
Call Center statistics with R
- 1. §³§ä§Ñ§ä§Ú§ã§ä§Ú§Ü§Ñ ?§Ó ?§Õ§Ó§Ñ ?§Ü§Ý§Ú§Ü§Ñ: ? §á§â§Ú§Þ§Ö§ß§Ö§ß§Ú§Ö ?§á§Ñ§Ü§Ö§ä§Ñ ?R ?§Õ§Ý§ñ ? §å§á§â§Ñ§Ó§Ý§Ö§ß§Ú§ñ ?§Ü§à§ß§ä§Ñ§Ü§ä§ß§í§Þ ?§è§Ö§ß§ä§â§à§Þ ? §¥§Ö§ß§Ú§ã ?§§ð§Ò§Ú§Ó§í§Û ? ? ?§¡§á§Ö§Ü§ã ?§¢§Ö§â§Ô ?§¬§à§ß§ä§Ñ§Ü§ä-?©\§¸§Ö§ß§ä§â ?§¬§à§ß§ã§Ñ§Ý§ä§Ú§ß§Ô? ? CONTACTIS ? ?§¡§å§ä§ã§à§â§ã§Ú§ß§Ô§à§Ó§í§Û ?§¬§à§ß§ä§Ñ§Ü§ä ?§¸§Ö§ß§ä§â ?
- 2. R ?
- 3. §°§ã§ß§à§Ó§ß§í§Ö ?§â§Ö§ã§å§â§ã§í ? ? R-?©\project: ? ?? hTp://www.r-?©\project.org/ ? §¬§å§â§ã§í ?§á§à ?§à§Ò§å§é§Ö§ß§Ú§ð: ? ?? hTps://www.codeschool.com/courses/try-?©\r ? ?? hTps://www.coursera.org/course/rprog ? ?
- 4. §±§²§ª§®§¦§² ?§¬§°§¥§¡ ?§ª ?§²§¦§©§µ§§¾§´§¡§´§½ ?
- 5. §¬§à§Õ ?§Õ§Ý§ñ ?§Ü§Ñ§Ý§Ö§ß§Õ§Ñ§â§ñ ?§ß§Ñ§Ô§â§å§Ù§Ü§Ú ?§ß§Ñ ?§¬§¸ ? (§ã§Ñ§Þ ?§Ü§Ñ§Ý§Ö§ß§Õ§Ñ§â§î ?§ß§Ñ ?§ã§Ý§Ö§Õ§å§ð§ë§Ö§Þ ?§ã§Ý§Ñ§Û§Õ§Ö) ? library("quantmod") ? library("ggplot2") ? library("reshape2") ? library("plyr") ? library("scales") ? ? datasummary ?<-?©\ ?ddply(data, ?"date", ?summarize, ?Total_for_day ?= ?length(tracknum)) ? ? datasummary$year ?<-?©\ ?as.numeric(as.POSIXlt(datasummary$date)$year+1900) ? datasummary$month ?<-?©\ ?as.numeric(as.POSIXlt(datasummary$date)$mon+1) ? datasummary$monthf ?<-?©\ ?factor(datasummary$month,levels=as.character(1:12), ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?labels=c("§Á§ß§Ó","§¶§Ö§Ó","§®§Ñ§â","§¡§á§â","§®§Ñ§Û","§ª§ð§ß§î", ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?"§ª§ð§Ý§î","§¡§Ó§Ô","§³§Ö§ß§ä","§°§Ü§ä","§¯§à§ñ","§¥§Ö§Ü"), ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?ordered=TRUE) ? datasummary$weekday ?<-?©\ ?(as.POSIXlt(datasummary$date)$wday+6)%%7 ? datasummary$weekdayf ?<-?©\ ?factor(datasummary$weekday,levels=rev(0:6), ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?labels=rev(c("§±§ß","§£§ä","§³§â","§¹§ä","§±§ä","§³§Ò","§£§ã")),ordered=TRUE) ? datasummary$yearmonth ?<-?©\ ?as.yearmon(datasummary$date) ? datasummary$yearmonthf ?<-?©\ ?factor(datasummary$yearmonth) ? datasummary$week ?<-?©\ ?as.numeric(format(as.Date(datasummary$date),"%W")) ? datasummary ?<-?©\ ?ddply(datasummary,.(yearmonthf),transform,monthweek=1+week-?©\min(week)) ? ? ? # ?Plot ?for ?visits ? P_calls ?<-?©\ ?ggplot(datasummary, ?aes(monthweek, ?weekdayf, ??ll ?= ?Total_for_day)) ?+ ? ? ? ? ?geom_?le(colour ?= ?"white") ?+ ? ? ? ? ?facet_grid(year~monthf) ?+ ? ? ? ? ?scale_?ll_gradient(high="#D61818",low="#B5E384", ?name ?= ?"§©§Ó§à§ß§Ü§à§Ó ?§Ó ?§Õ§Ö§ß§î") ?+ ? ? ? ? ?labs(?tle ?= ?"Calendar ?Heatmap ?§Õ§Ý§ñ ?§Ü§à§ß§ä§Ñ§Ü§ä§ß§à§Ô§à ?§è§Ö§ß§ä§â§Ñ") ?+ ? ? ? ? ?xlab("§¯§Ö§Õ§Ö§Ý§ñ ?§Þ§Ö§ã§ñ§è§Ñ") ?+ ? ? ? ? ?ylab("§¥§Ö§ß§î ?§ß§Ö§Õ§Ö§Ý§Ú") ? ? # ?View ?plot ? P_calls ? ?
- 7. §¬§à§Õ ?§Õ§Ý§ñ ?§á§à§ã§ä§â§à§Ö§ß§Ú§ñ ?§Ô§â§Ñ§æ§Ú§Ü§Ñ ??§Ü§à§â§à§Ò§Ü§Ñ ?§ã ?§å§ã§Ú§Ü§Ñ§Þ§Ú?: ? boxplot(TALK_TIME ?~ ?name,data=oldagents,las=2,cex=1) ?
- 8. §¤§â§Ñ§æ§Ú§Ü ??ScaTer ?Plot ?§ã ?§á§à§Õ§á§Ú§ã§ñ§Þ§Ú? ? plot(agents$AV_TALK_TIME,agents$AV_HOLD, ? ? ? ? ? ? ?main= ?"AV_TALK_TIME ?vs ?AV_HOLD", ? ? ? ? ? ?xlab= ?"AV_TALK_TIME", ? ? ? ? ? ?ylab= ?"AV_HOLD", ? ? ? ? ? ?col= ?"blue", ?pch ?= ?19, ?cex ?= ?1, ?lty ?= ?"solid", ?lwd ?= ?2) ? ? text(agents$AV_TALK_TIME, ?agents$AV_HOLD, ?labels=agents$name, ?cex= ? 0.7, ?pos=3) ?
- 9. §¤§â§Ñ§æ§Ú§Ü ??ScaTer ?Plot ?§ã ?§á§à§Õ§á§Ú§ã§ñ§Þ§Ú? ?
- 10. §¤§Ú§ã§ä§à§Ô§â§Ñ§Þ§Þ§Ñ ? hist(data$TALK_TIME, ?xlim=range(data$TALK_TIME),breaks=40, ? ? ? ? ? ?xlab= ?"§£§â§Ö§Þ§ñ ?§â§Ñ§Ù§Ô§à§Ó§à§â§Ñ", ?ylab="§é§Ñ§ã§ä§à§ä§Ñ", ?main="§²§Ñ§ã§á§â§Ö§Õ§Ö§Ý§Ö§ß§Ú§Ö ? §Ó§â§Ö§Þ§Ö§ß§Ú ?§â§Ñ§Ù§Ô§à§Ó§à§â§Ñ, ?2013 ?§Ô.", ?prob=TRUE, ? ? ? ? ? ? ?cex.lab=1.5, ?cex.axis=1.5, ?cex.main=1.5, ?cex.sub=1.5) ?
- 12. §³§á§Ñ§ã§Ú§Ò§à! ? hTp://apexberg.ru/ ? ? d.lyubyvy@apexberg.ru ? +7 ?(495) ?22-?©\911-?©\82 ?