plot legend, multiple formats
This commit is contained in:
parent
582fdf1d1a
commit
f63f8d11ff
@ -186,10 +186,10 @@ draw_plot <- function(data, casename) {
|
|||||||
legend_names <- c(legend_names, "static bound")
|
legend_names <- c(legend_names, "static bound")
|
||||||
}
|
}
|
||||||
|
|
||||||
# legend(LEGEND_POS, legend=legend_names,#"bottomright",
|
legend(LEGEND_POS, legend=legend_names,#"bottomright",
|
||||||
# col=legend_colors,
|
col=legend_colors,
|
||||||
# lty=legend_styles,
|
lty=legend_styles,
|
||||||
# lwd=2)
|
lwd=2)
|
||||||
|
|
||||||
par(las = 2, mar = c(10, 5, 1, 1))
|
par(las = 2, mar = c(10, 5, 1, 1))
|
||||||
}
|
}
|
||||||
@ -211,28 +211,28 @@ for (cn in casenames[['casename']]) {
|
|||||||
png(file=sprintf("%s/sql_%s.png", args[2],cn[[1]]), width=w_, height=h_)
|
png(file=sprintf("%s/sql_%s.png", args[2],cn[[1]]), width=w_, height=h_)
|
||||||
draw_plot(table_list, cn[[1]])
|
draw_plot(table_list, cn[[1]])
|
||||||
dev.off()
|
dev.off()
|
||||||
# ## wide
|
## wide
|
||||||
# png(file=sprintf("%s/sql_%s_wide.png", args[2],cn[[1]]), width=2*w_, height=h_)
|
png(file=sprintf("%s/sql_%s_wide.png", args[2],cn[[1]]), width=2*w_, height=h_)
|
||||||
# draw_plot(table_list, cn[[1]])
|
draw_plot(table_list, cn[[1]])
|
||||||
# dev.off()
|
dev.off()
|
||||||
# # tikz
|
# tikz
|
||||||
# ## normal
|
## normal
|
||||||
# tikz(file=sprintf("%s/sql_%s.tex", args[2],cn[[1]]), width=0.6*w_/72, height=0.6*h_/72)
|
tikz(file=sprintf("%s/sql_%s.tex", args[2],cn[[1]]), width=0.6*w_/72, height=0.6*h_/72)
|
||||||
# draw_plot(table_list, cn[[1]])
|
draw_plot(table_list, cn[[1]])
|
||||||
# dev.off()
|
dev.off()
|
||||||
# ## wide
|
## wide
|
||||||
# tikz(file=sprintf("%s/sql_%s_wide.tex", args[2],cn[[1]]), width=(w_*2)/72, height=h_/72)
|
tikz(file=sprintf("%s/sql_%s_wide.tex", args[2],cn[[1]]), width=(w_*2)/72, height=h_/72)
|
||||||
# draw_plot(table_list, cn[[1]])
|
draw_plot(table_list, cn[[1]])
|
||||||
# dev.off()
|
dev.off()
|
||||||
# # pdf
|
# pdf
|
||||||
# ## normal
|
## normal
|
||||||
# pdf(file=sprintf("%s/sql_%s.pdf", args[2],cn[[1]]), width=w_/72, height=h_/72)
|
pdf(file=sprintf("%s/sql_%s.pdf", args[2],cn[[1]]), width=w_/72, height=h_/72)
|
||||||
# draw_plot(table_list, cn[[1]])
|
draw_plot(table_list, cn[[1]])
|
||||||
# dev.off()
|
dev.off()
|
||||||
# ## wide
|
## wide
|
||||||
# pdf(file=sprintf("%s/sql_%s_wide.pdf", args[2],cn[[1]]), width=2*w_/72, height=h_/72)
|
pdf(file=sprintf("%s/sql_%s_wide.pdf", args[2],cn[[1]]), width=2*w_/72, height=h_/72)
|
||||||
# draw_plot(table_list, cn[[1]])
|
draw_plot(table_list, cn[[1]])
|
||||||
# dev.off()
|
dev.off()
|
||||||
}
|
}
|
||||||
|
|
||||||
dbDisconnect(con)
|
dbDisconnect(con)
|
||||||
|
Loading…
x
Reference in New Issue
Block a user