diff --git a/.gitignore b/.gitignore index 065f56108d9a9934746a7a4d890cdb3ff7ab55ef..eddaf3d24df4c6520b1ef99aa062c58441c54acb 100644 --- a/.gitignore +++ b/.gitignore @@ -4,3 +4,4 @@ .Ruserdata Notizen.md +*.png diff --git a/R/plot_effect.R b/R/plot_effect.R index b3d19c80b9cb0e4a20259092f847e8db5d31db93..061a3aec4fda26e6c8d3771f2a557d9b20c7ae01 100644 --- a/R/plot_effect.R +++ b/R/plot_effect.R @@ -52,8 +52,8 @@ plot_effect <- function(model, xlab = xlab, ylab = ylab, xaxt = "n", - bty = "L", - las = 1 + las = 1, + bty = "L" ) points( @@ -129,8 +129,13 @@ plot_effect <- function(model, } } - axis(1, at = log_ticks$major, labels = log_ticks$major_labels) - axis(1, at = log_ticks$minor, labels = FALSE, tcl = -0.25) + # The setting of col = NA and col.ticks = par("fg") is to prevent ugly line + # thickness issues when plotting as a png with type = "cairo" and at a low + # resolution. + axis(1, at = log_ticks$major, labels = log_ticks$major_labels, + col = NA, col.ticks = par("fg")) + axis(1, at = log_ticks$minor, labels = FALSE, tcl = -0.25, + col = NA, col.ticks = par("fg")) plotrix::axis.break(1, breakpos = temp$axis_break_conc) if (show_legend) { diff --git a/R/plot_stress.R b/R/plot_stress.R index c48c978d34260ed1e0cd037088194cf49b3027a7..5f41dbbdc26213c31229d40efd95487b93d4f26a 100644 --- a/R/plot_stress.R +++ b/R/plot_stress.R @@ -36,7 +36,6 @@ plot_stress <- function(model, temp <- adjust_smooth_concentrations(model) curves <- temp$curves - axis_break_conc <- temp$axis_break_conc log_ticks <- get_log_ticks(curves$concentration) concentration <- c(curves$concentration[1], model$args$concentration[-1]) @@ -138,9 +137,14 @@ plot_stress <- function(model, } } - axis(1, at = log_ticks$major, labels = log_ticks$major_labels) - axis(1, at = log_ticks$minor, labels = FALSE, tcl = -0.25) - plotrix::axis.break(1, breakpos = axis_break_conc) + # The setting of col = NA and col.ticks = par("fg") is to prevent ugly line + # thickness issues when plotting as a png with type = "cairo" and at a low + # resolution. + axis(1, at = log_ticks$major, labels = log_ticks$major_labels, + col = NA, col.ticks = par("fg")) + axis(1, at = log_ticks$minor, labels = FALSE, tcl = -0.25, + col = NA, col.ticks = par("fg")) + plotrix::axis.break(1, breakpos = temp$axis_break_conc) if (show_legend) { legend_df <- legend_df[order(legend_df$order), ]