library(plyr)
library(ggplot2)
period <- c("period 0","period 1","period 1","period 1","period 1","period 1","period 2","period 2","period 2","period 2","period 2","period 2","period 2", "period 2","period 2","period 3","period 3","period 3","period 3","period 3","period 3","period 3.5","period 3.5","period 3.5","period 4","period 4", "period 4","period 4","period 4","period 4","period 4","period 5","period 5","period 5","period 5","period 5","period 5","period 5","period 6","period 7")
teacher <- c("17","14","17","20","22","23","13","15","17","19","20","22", "23","24","25","14","17","20","22","23","24","20","22","24","13","15","16","17", "20","21","22","14","15","18","19","20","22","23","18","20")
qty <- c(2,1,2,2,1,1,4,1,1,1,1,5,4,1,1,2,13,2,2,1,1,2,1,3,4,1,1,7,2,1,1,1, 6,5,2,2,3,2,1,2)
ref_by_period_df <- data.frame(Period=period,Teacher=teacher,Qty=qty)
ref_by_period_df <- ddply(ref_by_period_df, .(Period), transform, pos = cumsum(Qty) - (0.5 * Qty))
ref_by_period <- ggplot(ref_by_period_df, aes(x=Period,y=Qty))+
geom_bar(aes(fill=Teacher),stat="identity")+
geom_text(aes(label=Qty,x=Period,y=pos),size=3)+
labs(y="Referral Count",x=NULL,title="Frequency of …
Run Code Online (Sandbox Code Playgroud)