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(LEGEND_POS, legend=legend_names,#"bottomright",
|
||||
# col=legend_colors,
|
||||
# lty=legend_styles,
|
||||
# lwd=2)
|
||||
legend(LEGEND_POS, legend=legend_names,#"bottomright",
|
||||
col=legend_colors,
|
||||
lty=legend_styles,
|
||||
lwd=2)
|
||||
|
||||
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_)
|
||||
draw_plot(table_list, cn[[1]])
|
||||
dev.off()
|
||||
# ## wide
|
||||
# png(file=sprintf("%s/sql_%s_wide.png", args[2],cn[[1]]), width=2*w_, height=h_)
|
||||
# draw_plot(table_list, cn[[1]])
|
||||
# dev.off()
|
||||
# # tikz
|
||||
# ## normal
|
||||
# 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]])
|
||||
# dev.off()
|
||||
# ## wide
|
||||
# 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]])
|
||||
# dev.off()
|
||||
# # pdf
|
||||
# ## normal
|
||||
# pdf(file=sprintf("%s/sql_%s.pdf", args[2],cn[[1]]), width=w_/72, height=h_/72)
|
||||
# draw_plot(table_list, cn[[1]])
|
||||
# dev.off()
|
||||
# ## wide
|
||||
# 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]])
|
||||
# dev.off()
|
||||
## wide
|
||||
png(file=sprintf("%s/sql_%s_wide.png", args[2],cn[[1]]), width=2*w_, height=h_)
|
||||
draw_plot(table_list, cn[[1]])
|
||||
dev.off()
|
||||
# tikz
|
||||
## normal
|
||||
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]])
|
||||
dev.off()
|
||||
## wide
|
||||
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]])
|
||||
dev.off()
|
||||
# pdf
|
||||
## normal
|
||||
pdf(file=sprintf("%s/sql_%s.pdf", args[2],cn[[1]]), width=w_/72, height=h_/72)
|
||||
draw_plot(table_list, cn[[1]])
|
||||
dev.off()
|
||||
## wide
|
||||
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]])
|
||||
dev.off()
|
||||
}
|
||||
|
||||
dbDisconnect(con)
|
||||
|
Loading…
x
Reference in New Issue
Block a user