x <- read.csv("demo.csv")

png("demo.png", width=400, height=400)

plot(x, xlab="Time", ylab="Position")
grid()

dev.off()