dat<-read.table("res.dat",header=F)
pdf("bar.pdf")
barplot(dat[,2],names.arg=dat[,1],xlab="x",ylab="y")
dev.off()
pdf("line.pdf")
plot(c(3,4,10,100),dat[,3],xlab="x",ylab="y",type="l")
dev.off()