BIS 044 - Assignment 05 - Solution.R

# BIS 044 - Assignment 05 Solution

library(tidyverse)

# Clear out Console and Enviroment
rm(list=ls(all=TRUE))
cat("\014")

tonnage <- read.csv("TBQ05.20211116133909.csv")
str(tonnage)
tonnage$VALUE <- as.numeric(tonnage$VALUE)
tonnage$VALUE[is.na(tonnage$VALUE)] <- 0
tonnage$Region.of.Trade <- as.factor(tonnage$Region.of.Trade)

tonnage2 <- tonnage[which(tonnage$Port == "All Main Irish Ports"),]
by(tonnage2$VALUE,tonnage2$Region.of.Trade,sum)


tonnage<-tonnage[which(tonnage$Port!="All Main Irish Ports" &
                         tonnage$C01713V02044 =="1"),]

ggplot(data=tonnage) + 
  geom_point(aes(x=Quarter,y=VALUE, color=Port)) + 
  ggtitle("Quarterly Tonnage Arriving From Great Britain and Northern Ireland") + 
  xlab("Quarter") + 
  ylab("Tonnage") +
  theme_minimal()