From 86c6e9ec66f27f993a23f680ee4a9d18258fd06f Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Tue, 3 Dec 2024 22:52:27 +0100
Subject: [PATCH] styler

---
 R/plot.n_factors.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/plot.n_factors.R b/R/plot.n_factors.R
index 0332b3f9e..3e647918f 100644
--- a/R/plot.n_factors.R
+++ b/R/plot.n_factors.R
@@ -138,7 +138,7 @@ plot.see_n_factors <- function(x,
     segment_data <- data.frame(x_intercept = x$x[which.max(x$y)], y_max = max(x$y, na.rm = TRUE))
     p <- ggplot(x, aes(x = .data$x, y = .data$y)) +
       geom_area(fill = flat_colors("grey")) +
-        geom_segment(
+      geom_segment(
         data = segment_data,
         aes(
           x = .data$x_intercept,