Assignment 1: Anscombe’s Quartet

# Load necessary libraries
library(ggplot2)
library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

library(tidyr)

# Load the dataset
data(anscombe)

# Convert the data into a tidy format for ggplot
anscombe_tidy <- anscombe %>%
  pivot_longer(everything(), names_to = c(".value", "set"), names_pattern = "(.)(.)")

# Plot the four datasets
ggplot(anscombe_tidy, aes(x = x, y = y)) +
  geom_point(color = "steelblue", size = 2) +
  geom_smooth(method = "lm", se = FALSE, color = "red", linetype = "dashed") +
  facet_wrap(~set) +
  theme_minimal() +
  labs(title = "Anscombe's Quartet",
       subtitle = "Each dataset has nearly identical summary statistics",
       x = "X",
       y = "Y")

`geom_smooth()` using formula = 'y ~ x'