Add penguin script

Author: walice

.gitignore

@@ -0,0 +1,4 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata

Figures/Bill-features.png

@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX

Figures/Flipper-length.png

@@ -0,0 +1,45 @@
+# Example R script for Git tutorial
+# Alice Lepissier 
+# [email protected]
+
+## ## ## ## ## ## ## ## ## ## ##
+# INDEX                     ####
+## ## ## ## ## ## ## ## ## ## ##
+# Preamble
+# Plotting penguin data
+
+
+
+## ## ## ## ## ## ## ## ## ## ##
+# PREAMBLE                  ####
+## ## ## ## ## ## ## ## ## ## ##
+
+library(ggridges)
+library(here)
+library(palmerpenguins)
+library(tidyverse)
+
+
+
+## ## ## ## ## ## ## ## ## ## ##
+# PLOTTING PENGUIN DATA     ####
+## ## ## ## ## ## ## ## ## ## ##
+
+summary(penguins)
+
+viz <- ggplot(penguins, 
+              aes(x = flipper_length_mm, y = species, fill = species)) +
+  geom_density_ridges() +
+  theme_minimal() +
+  theme(legend.position = "none") +
+  labs(title = "Distribution of penguin flipper length")
+ggsave(here("Figures", "Flipper-length.png"),
+       width = 6, height = 5, units = "in")
+
+viz <- ggplot(penguins, 
+       aes(x = bill_length_mm, y = bill_depth_mm, color = species)) + 
+  geom_point() +
+  theme_minimal() +
+  labs(title = "Length and depth of penguin bills")
+ggsave(here("Figures", "Bill-features.png"),
+       width = 6, height = 5, units = "in")