Delete png("Plot2.png") plot(datos2$Global_active_power,type="l",ylab="Global Active Power (kilowatts)",axes=F) axis(1,at=c(which(!duplicated(weekdays(datos2$Date))),nrow(datos2)),labels=c(unique(weekdays(datos2$Date,abbreviate=T)),"sab")) axis(2) box("plot") dev.off()