From f56f8e507ce1c5c29a824cb3d66074a7f409c7e9 Mon Sep 17 00:00:00 2001
From: Ranke Johannes <johannes.ranke@agroscope.admin.ch>
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