Module 7: Plotting with ggplot - Part 1

Plot 1, a histogram plot of Salinity:

temperature = read.csv("Temperature.csv")
library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.0.5

library(reshape2)

## Warning: package 'reshape2' was built under R version 4.0.5

salinityplot = ggplot(temperature, aes(x = Salinity))
salinityplot + geom_histogram(color = 'blue', fill = 'cyan', binwidth = 1, na.rm = TRUE) + ggtitle("Salinity Values")

Plot 2, a histogram of salinity for each year and one of salinity for each month:

salinityplot + geom_histogram(color = 'blue', fill = 'cyan', binwidth = 1, na.rm = TRUE)+ facet_wrap(~ Year) + ggtitle("Salinity by Year")

salinityplot + geom_histogram(color = 'blue', fill = 'cyan', binwidth = 1, na.rm = TRUE)+ facet_wrap(~ Month) + ggtitle("Salinity by Month") 

Plot 3, a boxplot of temperature values for each station

tempplot = ggplot(temperature, aes(x=Station, y=Temperature))
tempplot + geom_boxplot(color = 'magenta', fill = 'magenta' , na.rm = TRUE) + ggtitle("Temperature by Station") + 
  xlab("Station") + ylab("Temperature (C)")

ggsave("temp_vs_station.png", tempplot) ### Save plot as png file

## Saving 7 x 5 in image

Optional plot, reorganize previos boxplot to low to high temperatures

temp2plot = ggplot(temperature, aes(x=reorder(Station, Temperature, median)))
temp2plot + geom_boxplot(color = 'darkorange', fill = 'darkorange', na.rm = TRUE) + ggtitle("Temperature by Station") + xlab("Station") + ylab("Temperature (C)")