commit f19d922f82e5250b44a400a078024719240605d8
Author: Gerardo Marx <gmarx_cc@itmorelia.edu.mx>
Date:   Wed Sep 3 18:14:48 2025 -0600

    numerical variables

diff --git a/main.R b/main.R
new file mode 100644
index 0000000..585b12c
--- /dev/null
+++ b/main.R
@@ -0,0 +1,54 @@
+library(tidyverse)
+library(palmerpenguins) # install.packages("palmerpenguins")
+library(ggthemes)
+
+penguins
+
+? penguins
+
+# ggplot
+ggplot(data = penguins, 
+       mapping = aes(x=flipper_len, y=body_mass, colour = species)) +
+  geom_point() + 
+  geom_smooth(method = "lm")
+
+# ggplot step 2:
+ggplot(data = penguins, 
+       mapping = aes(x=flipper_len, y=body_mass)) +
+  geom_point(mapping = aes(colour = species, shape = species)) + 
+  geom_smooth(method = "lm")
+
+
+# ggplot final step:
+ggplot(
+  data = penguins,
+  mapping = aes(x = flipper_len, y = body_mass)) +
+  geom_point(aes(color = species, shape = species), size = 3.5) +
+  geom_smooth(method = "lm") +
+  labs(
+    title = "Body mass and flipper length",
+    subtitle = "Dimensions for Adelie, Chinstrap, and Gentoo Penguins",
+    x = "Flipper length [mm]", y = "Body mass [g]",
+    color = "Species", shape = "Species") +
+  scale_color_colorblind()
+
+#-=-=-=-=-=-=-=
+# Categorical variables:
+
+# CV step 1:
+ggplot(data = penguins, 
+       mapping = aes(x=species)) +
+  geom_bar()
+
+# CV step 2:
+ggplot(data = penguins, 
+       mapping = aes(x= fct_infreq(species))) +
+  geom_bar()
+
+#-=-=-=-=-=-=-=
+# Numerical variables:
+
+
+ggplot(data = penguins,
+       mapping = aes(x = body_mass)) +
+  geom_histogram(binwidth = 350)