search

nilmit / ExData_Plotting1

Project
0 stars 0 forks source link

plot3 #3

Open nilmit opened 9 years ago

nilmit commented 9 years ago

plot3

nilmit commented 9 years ago

plot3 <- function() { par(mfrow=c(1,1)) plot(sdatafile$timestamp,sdatafile$Sub_metering_1, type="l", xlab="", ylab="Energy sub metering") lines(sdatafile$timestamp,sdatafile$Sub_metering_2,col="red") lines(sdatafile$timestamp,sdatafile$Sub_metering_3,col="blue") legend("topright", col=c("black","red","blue"), c("Sub_metering_1 ","Sub_metering_2 ", "Sub_metering_3 "),lty=c(1,1), lwd=c(1,1)) dev.copy(png, file="plot3.png", width=480, height=480) dev.off() cat("plot3.png saved in", getwd()) } plot3()