From 4e688061a1703ecea933477f581e67805b688757 Mon Sep 17 00:00:00 2001
From: Olivia <92395083+OliviaLorente-Casalini@users.noreply.github.com>
Date: Thu, 30 May 2024 17:33:58 +0200
Subject: [PATCH] final

---
 scripts_texto_nota.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/scripts_texto_nota.R b/scripts_texto_nota.R
index 30d5293..3067c4a 100644
--- a/scripts_texto_nota.R
+++ b/scripts_texto_nota.R
@@ -76,6 +76,10 @@ penguins_df_mean_long_str <- penguins_df_mean_long
 penguins_tb_mean_long_str_for <- penguins_tb_mean_long_str |> 
   mutate(species = fct_relevel(species, c("Chinstrap", "Adelie", "Gentoo")))
 
+# fct_relevel() no altera directamente el orden de los niveles en la tabla,
+# si no que los reordena internamente para determinados procesos, como por 
+# ejemplo, una mejor visualizacion en los graficos
+
 # R base
 penguins_df_mean_long_str$species <- factor(penguins_df_mean_long_str$species, 
                                             levels = c("Chinstrap", "Adelie", "Gentoo"))