fix: ggparcoord anyClass ordering with missing values in data

NEWS.md

@@ -1,5 +1,7 @@
 # GGally (development version)
 
+* Fix anyClass ordering in ggparcoord when data has missing values (#500)
+
 # GGally 2.2.1
 
 * Fix compatibility with ggplot2 3.5.0 (@teunbrand, #481)

R/ggparcoord.R

@@ -396,6 +396,7 @@ ggparcoord <- function(
     }
 
     data <- data[dataCompleteCases, ]
+    saveData2 <- saveData2[dataCompleteCases, ]
   } else if (tolower(missing) %in% c("mean", "median", "min10", "random")) {
     missingFns <- list(
       mean = function(x) {

tests/testthat/test-ggparcoord.R

@@ -227,6 +227,17 @@ test_that("order", {
   }
 })
 
+test_that("missing and order(anyClass)", {
+  ds2 <- diamonds.samp
+  ds2[3, 1] <- NA
+  missing_options <- c("exclude", "mean", "median", "min10", "random")
+
+  for (missing in missing_options) {
+    p <- ggparcoord(data = ds2, columns = c(1, 5:10), groupColumn = 2, missing = missing, order = "anyClass")
+  }
+  expect_true(TRUE)
+})
+
 test_that("basic", {
   # no color supplied
   p <- ggparcoord(data = diamonds.samp, columns = c(1, 5:10))