#!/usr/bin/env Rscript data <- read.csv("munged.csv") data$Time <- as.POSIXct(paste(data$LclDate, data$LclTime, data$UTCOfst)) data$LclDate <- NULL data$LclTime <- NULL data$UTCOfst <- NULL tmp <- data.frame(Time=data$Time, C1=data$E1EGT1, C2=data$E1EGT2, C3=data$E1EGT3, C4=data$E1EGT4) library(reshape2) tmp <- melt(tmp, "Time", variable.name="Cylinder") library(ggplot2) p <- ggplot(tmp) p <- p + ggtitle("Exhaust Gas Temperature") p <- p + ylab(expression(Temperature~(degree*F))) p <- p + geom_line(aes(x=Time, y=value, color=Cylinder)) jpeg(filename="egt.jpg") print(p) dev.off()