|
|
@@ -825,10 +825,9 @@ generate_rank_plot_configs <- function(df_filtered, variables, is_lm = FALSE) {
|
|
|
rectangles <- NULL
|
|
|
}
|
|
|
|
|
|
- print(df_filtered %>% select(all_of(c(x_var, y_var))))
|
|
|
-
|
|
|
# Check if there is sufficient variation
|
|
|
if (length(unique(df_filtered[[x_var]])) < 2 || length(unique(df_filtered[[y_var]])) < 2) {
|
|
|
+ print(df_filtered %>% select(all_of(c("scan", "Plate", "Row", "Col", "num", "conc_num", x_var, y_var))))
|
|
|
message("Not enough variation in ", x_var, " or ", y_var, " to fit linear model. Skipping.")
|
|
|
next
|
|
|
}
|
