1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
# load("rates")
library('getopt')
spec = matrix(c(
'draft' , 'd', 0, "logical",
'make.title' , 't', 0, "logical",
'bw' , 'b', 0, "logical"
), ncol=4, byrow=T)
opt = getopt(spec)
if (length(opt$draft) > 0 && opt$draft == T){
res = 100
path = 'problem_solve_2010_2011_draft.png'
}else{
res = 500
path = 'problem_solve_2010_2011.png'
}
if (length(opt$bw) > 0 && opt$bw == T){
line_types = c(2,1,3,4,5,6)
line_colors = c(rep("black", 10))
bar_color = c("black", "lightgray")
base_line_col = "black"
}
rates <- read.csv("../tables/warehouse_data.csv")
title = "Problem Solving, 2010, 2011"
x <- rates$week
y1 <- rates$hours.problem.solve.2010
y2 <- rates$hours.problem.solve.2011
total.hours.2010 <- rates$hours.outbound.2010 + rates$hours.inbound.2010
total.hours.2011 <- rates$hours.outbound.2011 + rates$hours.inbound.2011
y1 <- y1/total.hours.2010
y2 <- y2/total.hours.2011
y1 <- y1 * 100
y2 <- y2 * 100
png(file=path,
width=5, height=3.5, units="in", res=res)
xlab.text="Week in Year"
xlab = xlab.text
ylab = "percentage to total"
if (make.title == T ) top.margin = 3
if (make.title != T ) title=""
if (months.grid == T) bottom.margin = 6
if (months.grid == T) xlab = ''
margins=c(bottom.margin, 4, top.margin, 0.5)
par(mar=margins)
par(mar=margins)
par('family'='serif')
y_range = range(y1,y2, na.rm=T)
plot(x, type='n', xlab=xlab, ylab=ylab, las=1, main=title,
ylim=c(y_range), axes=F, xlim=c(range(x)))
axis(1, col=ax_col)
axis(2, col=ax_col, las=1, at=axTicks(2))
box(col=box_col)
abline( h=axTicks(2), lty=1, lwd=lwd_grid, col=ax_col)
lines(x,y1, col=line_colors[1], type="l", lwd=lwd, lty=line_types[1])
lines(x,y2, col=line_colors[2], type="l", lwd=lwd, lty=line_types[2])
arrows(x0=30, x1=36, y0=5, y1=5, length=.1)
text(x=30, y=5, pos=2, "cutover")
source("make_x_axis.R")
legend("topleft", c("2010","2011"), cex=legend_font_size,
col=line_colors, lty=line_types, bty='y', bg="white", box.lwd=box.lwd)
dev.off()
|
