#load packages library(reshape2) library(ggplot2) library(ggsignif) #set directory to the working directory setwd("c:/Users/(username)/Desktop") growth <- read.csv("Bacterial_growth.csv") #open csv View(growth) #view growth #change from wide format to long format growth_long <- melt(growth, id="Time", variable.name = "Bacteria", value.name = "OD600") View(growth_long) #view growth_long #plot bacterial growth ggplot(data=growth_long, aes(x=Time, y=OD600, color=Bacteria)) + geom_line(size=1)