From f56f8e507ce1c5c29a824cb3d66074a7f409c7e9 Mon Sep 17 00:00:00 2001 From: Ranke Johannes Date: Thu, 19 Dec 2024 13:51:09 +0100 Subject: Plot mixed models with more than 25 datasets Closes #15 --- R/plot.mixed.mmkin.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'R/plot.mixed.mmkin.R') diff --git a/R/plot.mixed.mmkin.R b/R/plot.mixed.mmkin.R index d6c3d0de..cf8d1562 100644 --- a/R/plot.mixed.mmkin.R +++ b/R/plot.mixed.mmkin.R @@ -93,7 +93,7 @@ plot.mixed.mmkin <- function(x, nrow.legend = ceiling((length(i) + 1) / ncol.legend), rel.height.legend = 0.02 + 0.07 * nrow.legend, rel.height.bottom = 1.1, - pch_ds = 1:length(i), + pch_ds = c(1:25, 32:127)[1:length(i)], col_ds = pch_ds + 1, lty_ds = col_ds, frame = TRUE, ... -- cgit v1.2.1 From 5c54f39802ec2898cd36916ae09e7873a9e95239 Mon Sep 17 00:00:00 2001 From: Ranke Johannes Date: Thu, 19 Dec 2024 15:08:11 +0100 Subject: Skip small symbols in plot.mixed() --- R/plot.mixed.mmkin.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'R/plot.mixed.mmkin.R') diff --git a/R/plot.mixed.mmkin.R b/R/plot.mixed.mmkin.R index cf8d1562..f05f1110 100644 --- a/R/plot.mixed.mmkin.R +++ b/R/plot.mixed.mmkin.R @@ -93,7 +93,7 @@ plot.mixed.mmkin <- function(x, nrow.legend = ceiling((length(i) + 1) / ncol.legend), rel.height.legend = 0.02 + 0.07 * nrow.legend, rel.height.bottom = 1.1, - pch_ds = c(1:25, 32:127)[1:length(i)], + pch_ds = c(1:25, 33, 35:38, 40:41, 47:57, 60:90)[1:length(i)], col_ds = pch_ds + 1, lty_ds = col_ds, frame = TRUE, ... -- cgit v1.2.1