DS Labs HW

library(tidyverse)

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.4     ✔ readr     2.1.5
✔ forcats   1.0.0     ✔ stringr   1.5.1
✔ ggplot2   3.5.2     ✔ tibble    3.3.0
✔ lubridate 1.9.4     ✔ tidyr     1.3.1
✔ purrr     1.1.0     
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(RColorBrewer)

library(dslabs)
data("olive")

ggplot(olive, aes(x = eicosenoic, y = palmitic, color = region)) +
  geom_point(size = 1, alpha = 0.8) +       
  scale_x_log10() +                       
  scale_y_log10() +                       
  labs(
    title = "Fatty Acid Composition of Italian Olive Oils",
    x = "Eicosenoic Acid (%)",
    y = "Palmitic Acid (%)",
    color = "Region"
  ) +
  theme_bw(base_size = 14)

The graph above represents the composition of fatty acid in Italian olive oils in different regions of Italy. The graph is made up from the “olive” dataset coming from the dslabs package. The graph is based on a logarithmic scale for better clarity. Based on the graph we can see that southern Italy has the greatest composition of Eicosenoic and Palmitic acid, along with the most diverse composition, as seen with southern italy having the most spread out dots along the graph. Northern Italy and Sardinia are similar to each other in their composition of fatty acids, although Northern Italy has examples of their composition of Eicosenoic and Palmitic acid being both higher and lower than Sardinia.