R Under development (unstable) (2025-10-15 r88920 ucrt) -- "Unsuffered Consequences" Copyright (C) 2025 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > # This file is part of the standard setup for testthat. > # It is recommended that you do not modify it. > # > # Where should you do additional test configuration? > # Learn more about the roles of various files in: > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview > # * https://testthat.r-lib.org/articles/special-files.html > > library(testthat) > library(GGenemy) > > test_check("GGenemy") `geom_smooth()` using method = 'loess' and formula = 'y ~ x' Simulating deutan color vision deficiency... Original colors: #00BA38, #F8766D, #619CFF Simulated colors: #AC9C45, #B6A86A, #5A96FD Simulating deutan color vision deficiency... Original colors: #00BA38, #F8766D, #619CFF Simulated colors: #AC9C45, #B6A86A, #5A96FD Simulating protan color vision deficiency... Original colors: #00BA38, #F8766D, #619CFF Simulated colors: #BDA824, #958D6C, #70A5FF Simulating tritan color vision deficiency... Original colors: #00BA38, #F8766D, #619CFF Simulated colors: #00B5A0, #FF6074, #00B2C1 ==================================== GGenemy Fix Suggestions ==================================== Copy and add these layers to your plot: your_plot <- ggplot(...) + geom_*(...) + # COLOR FIXES # Replace with colorblind-safe palette scale_color_viridis_d(option = 'plasma') + # Use high-contrast palette scale_color_brewer(palette = 'Set1') + # SCALE FIXES # Fix aspect ratio coord_fixed(ratio = 1) + # LABEL FIXES # Add descriptive title labs(title = 'Your Descriptive Title Here') + # TEXT FIXES # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + # ACCESSIBILITY FIXES # Increase point size geom_point(size = 3) + theme_minimal() # Optional: clean theme ==================================== Manual Fixes Required: ==================================== 1. Add missing axis labels 2. Add missing axis labels 3. Add a descriptive title TIP: Use auto_fix = TRUE to automatically apply some fixes: fixed_plot <- gg_suggest_fixes(your_plot, auto_fix = TRUE) ==================================== GGenemy Fix Suggestions ==================================== Copy and add these layers to your plot: your_plot <- ggplot(...) + geom_*(...) + # SCALE FIXES # Fix aspect ratio coord_fixed(ratio = 1) + # LABEL FIXES # Add descriptive title labs(title = 'Your Descriptive Title Here') + # TEXT FIXES # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + theme_minimal() # Optional: clean theme ==================================== Manual Fixes Required: ==================================== 1. Add missing axis labels 2. Add missing axis labels 3. Add a descriptive title TIP: Use auto_fix = TRUE to automatically apply some fixes: fixed_plot <- gg_suggest_fixes(your_plot, auto_fix = TRUE) ==================================== GGenemy Fix Suggestions ==================================== Copy and add these layers to your plot: your_plot <- ggplot(...) + geom_*(...) + # COLOR FIXES # Replace with colorblind-safe palette scale_color_viridis_d(option = 'plasma') + # Use high-contrast palette scale_color_brewer(palette = 'Set1') + # SCALE FIXES # Fix aspect ratio coord_fixed(ratio = 1) + # LABEL FIXES # Add descriptive title labs(title = 'Your Descriptive Title Here') + # TEXT FIXES # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + theme_minimal() # Optional: clean theme ==================================== Manual Fixes Required: ==================================== 1. Add missing axis labels 2. Add missing axis labels 3. Add a descriptive title TIP: Use auto_fix = TRUE to automatically apply some fixes: fixed_plot <- gg_suggest_fixes(your_plot, auto_fix = TRUE) ==================================== GGenemy Fix Suggestions ==================================== Copy and add these layers to your plot: your_plot <- ggplot(...) + geom_*(...) + # SCALE FIXES # Fix: Start y-axis at zero expand_limits(y = 0) + # LABEL FIXES # Add descriptive title labs(title = 'Your Descriptive Title Here') + # TEXT FIXES # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + theme_minimal() # Optional: clean theme ==================================== Manual Fixes Required: ==================================== 1. Add missing axis labels 2. Add missing axis labels 3. Add a descriptive title TIP: Use auto_fix = TRUE to automatically apply some fixes: fixed_plot <- gg_suggest_fixes(your_plot, auto_fix = TRUE) ==================================== GGenemy Fix Suggestions ==================================== Copy and add these layers to your plot: your_plot <- ggplot(...) + geom_*(...) + # SCALE FIXES # Fix aspect ratio coord_fixed(ratio = 1) + # LABEL FIXES # Add descriptive title labs(title = 'Your Descriptive Title Here') + # TEXT FIXES # Increase text size theme(axis.text = element_text(size = 11)) + # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + theme_minimal() # Optional: clean theme ==================================== Manual Fixes Required: ==================================== 1. Add missing axis labels 2. Add missing axis labels 3. Add a descriptive title TIP: Use auto_fix = TRUE to automatically apply some fixes: fixed_plot <- gg_suggest_fixes(your_plot, auto_fix = TRUE) ==================================== GGenemy Fix Suggestions ==================================== Copy and add these layers to your plot: your_plot <- ggplot(...) + geom_*(...) + # SCALE FIXES # Fix aspect ratio coord_fixed(ratio = 1) + # LABEL FIXES # Add descriptive title labs(title = 'Your Descriptive Title Here') + # TEXT FIXES # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + theme_minimal() # Optional: clean theme ==================================== Manual Fixes Required: ==================================== 1. Add missing axis labels 2. Add missing axis labels 3. Add a descriptive title TIP: Use auto_fix = TRUE to automatically apply some fixes: fixed_plot <- gg_suggest_fixes(your_plot, auto_fix = TRUE) ==================================== GGenemy Fix Suggestions ==================================== Copy and add these layers to your plot: your_plot <- ggplot(...) + geom_*(...) + # COLOR FIXES # Use high-contrast palette scale_color_brewer(palette = 'Set1') + # SCALE FIXES # Fix aspect ratio coord_fixed(ratio = 1) + # LABEL FIXES # Add descriptive title labs(title = 'Your Descriptive Title Here') + # TEXT FIXES # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + # ACCESSIBILITY FIXES # Increase point size geom_point(size = 3) + theme_minimal() # Optional: clean theme ==================================== Manual Fixes Required: ==================================== 1. Add missing axis labels 2. Add missing axis labels 3. Add a descriptive title TIP: Use auto_fix = TRUE to automatically apply some fixes: fixed_plot <- gg_suggest_fixes(your_plot, auto_fix = TRUE) ==================================== GGenemy Fix Suggestions ==================================== Copy and add these layers to your plot: your_plot <- ggplot(...) + geom_*(...) + # SCALE FIXES # Fix: Start y-axis at zero expand_limits(y = 0) + # LABEL FIXES # Add descriptive title labs(title = 'Your Descriptive Title Here') + # TEXT FIXES # Fix overlapping labels - choose one: # Option 1: Rotate labels theme(axis.text.x = element_text(angle = 45, hjust = 1)) + # Option 2: Flip coordinates coord_flip() + # Option 3: Reduce categories # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + theme_minimal() # Optional: clean theme ==================================== Manual Fixes Required: ==================================== 1. Fix overlapping axis labels 2. Add missing axis labels 3. Add missing axis labels 4. Add a descriptive title TIP: Use auto_fix = TRUE to automatically apply some fixes: fixed_plot <- gg_suggest_fixes(your_plot, auto_fix = TRUE) ==================================== GGenemy Fix Suggestions ==================================== Copy and add these layers to your plot: your_plot <- ggplot(...) + geom_*(...) + # SCALE FIXES # Fix aspect ratio coord_fixed(ratio = 1) + theme_minimal() # Optional: clean theme TIP: Use auto_fix = TRUE to automatically apply some fixes: fixed_plot <- gg_suggest_fixes(your_plot, auto_fix = TRUE) `geom_smooth()` using method = 'loess' and formula = 'y ~ x' `geom_smooth()` using method = 'loess' and formula = 'y ~ x' `geom_smooth()` using method = 'loess' and formula = 'y ~ x' `geom_smooth()` using method = 'loess' and formula = 'y ~ x' `geom_smooth()` using method = 'loess' and formula = 'y ~ x' ==================================== GGenemy Fix Suggestions ==================================== Copy and add these layers to your plot: your_plot <- ggplot(...) + geom_*(...) + # COLOR FIXES # Replace with colorblind-safe palette scale_color_viridis_d(option = 'plasma') + # Use high-contrast palette scale_color_brewer(palette = 'Set1') + # SCALE FIXES # Fix aspect ratio coord_fixed(ratio = 1) + # LABEL FIXES # Add descriptive title labs(title = 'Your Descriptive Title Here') + # TEXT FIXES # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + # ACCESSIBILITY FIXES # Increase point size geom_point(size = 3) + theme_minimal() # Optional: clean theme ==================================== Manual Fixes Required: ==================================== 1. Add missing axis labels 2. Add missing axis labels 3. Add a descriptive title TIP: Use auto_fix = TRUE to automatically apply some fixes: fixed_plot <- gg_suggest_fixes(your_plot, auto_fix = TRUE) ==================================== GGenemy Fix Suggestions ==================================== Copy and add these layers to your plot: your_plot <- ggplot(...) + geom_*(...) + # SCALE FIXES # Fix aspect ratio coord_fixed(ratio = 1) + # LABEL FIXES # Add descriptive title labs(title = 'Your Descriptive Title Here') + # TEXT FIXES # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + # Add axis labels labs(x = 'X Axis Label', y = 'Y Axis Label') + theme_minimal() # Optional: clean theme ==================================== Manual Fixes Required: ==================================== 1. Add missing axis labels 2. Add missing axis labels 3. Add a descriptive title TIP: Use auto_fix = TRUE to automatically apply some fixes: fixed_plot <- gg_suggest_fixes(your_plot, auto_fix = TRUE) [ FAIL 0 | WARN 0 | SKIP 0 | PASS 116 ] > > proc.time() user system elapsed 5.98 0.40 6.39