plot legend, multiple formats

This commit is contained in:
Alwin Berger 2025-08-16 08:12:09 +00:00
parent 582fdf1d1a
commit f63f8d11ff

View File

@ -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)