DATA1X01: Individual Project Checkpoint

Code

library(tidyverse)

Read in the data

Code

library(tidyverse)
data <- read_csv("/Users/vanshikachandra/Downloads/DATA1001_Project2/owid-co2-data.csv")

Plot

Code

data |>
  filter(country == "Australia") |>
  ggplot(aes(x = year, y = co2)) +
  geom_line(colour = "black") +
  labs(title = "Australia's annual CO2 emissions",
       x = "Year",
       y = "CO2 emissions (million tonnes)")

Acknowledgements

Dataset: CO2 data
I used Claude (Anthropic) to help understand the checkpoint instructions and set up the Quarto file structure.