Report on dynamics of store/employee cheating/productivity over time

Store Dynamics

Store 1

• Avg Shift together between employees

filter(mean_shift_store,storekey==1)

ggplot(filter(store_week_summary,storekey==1),aes(x=rank,y=avg_steal_cnt,group=factor(storekey)))+geom_line(aes(color=factor(storekey)))+geom_point(aes(color=factor(storekey)))+theme(legend.position = "none")+ggtitle("Steal Cnt Over Week")

ggplot(filter(store_week_summary,storekey==1),aes(x=rank,y=avg_steal_amt,group=factor(storekey)))+geom_line(aes(color=factor(storekey)))+geom_point(aes(color=factor(storekey)))+theme(legend.position = "none")+ggtitle("Steal Amt Over Week")

ggplot(filter(store_week_summary,storekey==1),aes(x=rank,y=avg_Tip,group=factor(storekey)))+geom_line(aes(color=factor(storekey)))+geom_point(aes(color=factor(storekey)))+theme(legend.position = "none")+ggtitle("Avg Tip Over Week")

ggplot(filter(store_week_summary,storekey==1),aes(x=rank,y=avgTipPct,group=factor(storekey)))+geom_line(aes(color=factor(storekey)))+geom_point(aes(color=factor(storekey)))+theme(legend.position = "none")+ggtitle("Tip Pct Over Week")

Store 2

• Avg Shift together between employees

filter(mean_shift_store,storekey==2)

ggplot(filter(store_week_summary,storekey==2),aes(x=rank,y=avg_steal_cnt,group=factor(storekey)))+geom_line(aes(color=factor(storekey)))+geom_point(aes(color=factor(storekey)))+theme(legend.position = "none")+ggtitle("Steal Cnt Over Week")

ggplot(filter(store_week_summary,storekey==2),aes(x=rank,y=avg_steal_amt,group=factor(storekey)))+geom_line(aes(color=factor(storekey)))+geom_point(aes(color=factor(storekey)))+theme(legend.position = "none")+ggtitle("Steal Amt Over Week")

ggplot(filter(store_week_summary,storekey==2),aes(x=rank,y=avg_Tip,group=factor(storekey)))+geom_line(aes(color=factor(storekey)))+geom_point(aes(color=factor(storekey)))+theme(legend.position = "none")+ggtitle("Avg Tip Over Week")

ggplot(filter(store_week_summary,storekey==2),aes(x=rank,y=avgTipPct,group=factor(storekey)))+geom_line(aes(color=factor(storekey)))+geom_point(aes(color=factor(storekey)))+theme(legend.position = "none")+ggtitle("Tip Pct Over Week")

Store 3

• Avg Shift together between employees

filter(mean_shift_store,storekey==13)

ggplot(filter(store_week_summary,storekey==13),aes(x=rank,y=avg_steal_cnt,group=factor(storekey)))+geom_line(aes(color=factor(storekey)))+geom_point(aes(color=factor(storekey)))+theme(legend.position = "none")+ggtitle("Steal Cnt Over Week")

ggplot(filter(store_week_summary,storekey==13),aes(x=rank,y=avg_steal_amt,group=factor(storekey)))+geom_line(aes(color=factor(storekey)))+geom_point(aes(color=factor(storekey)))+theme(legend.position = "none")+ggtitle("Steal Amt Over Week")

ggplot(filter(store_week_summary,storekey==13),aes(x=rank,y=avg_Tip,group=factor(storekey)))+geom_line(aes(color=factor(storekey)))+geom_point(aes(color=factor(storekey)))+theme(legend.position = "none")+ggtitle("Avg Tip Over Week")

ggplot(filter(store_week_summary,storekey==13),aes(x=rank,y=avgTipPct,group=factor(storekey)))+geom_line(aes(color=factor(storekey)))+geom_point(aes(color=factor(storekey)))+theme(legend.position = "none")+ggtitle("Tip Pct Over Week")