Series of line plots in R

line_plots.R

data <- read.csv('data.csv', sep=',')

subplot <- function(data, set) {
  subdata <- subset(data, column == set)
  xrange <- strptime(subdata$period, format='%H:%M:%S')
  yrange <- subdata$fitness

  plot(xrange, yrange, type="l", col="blue", xlab="Period", ylab="Fitness", main="Evolution")
}

setplot <- function(data, range) {
  par(mfrow=c(2,5))
  for(i in 1:10) { 
    subplot(data, i)
  }
}