Lab 1: Intro to R

library(tidyverse)
library(openintro)

Exercise 1

library(ggplot2)

arbuthnot$total= arbuthnot$boys + arbuthnot$girls

# Your data and plotting code
ggplot(arbuthnot, aes(x = year, y = value)) +
  geom_line(aes(y = boys, color = "Boys")) +
  geom_line(aes(y = girls, color = "Girls")) +
  geom_line(aes(y = total, color = "Total")) +
  
  # Adding the legend
  scale_color_manual(values = c("Boys" = "red", "Girls" = "blue", "Total" = "black"),
                     labels = c("Boys", "Girls", "Total")) +
  
  # Customize the legend position and title
  theme(legend.position = "right") +
  labs(color = "Gender") +
  
  # Customize the title position and text
  theme(plot.title = element_text(hjust = 0.5, vjust = 0.5)) +
  
  # Add the plot title
  ggtitle("Baptism record")