week<-c(1,2,4,6,8,10)
base <- 48.3
x<-c(48.3,96.6-20,193.2-40, 289.8-70,386.4-80,483-100)
y<-c(36,72-20,144-50,216-80,288-100,360-150)-c(10,20,20,20,20,20)
plot(week,x,col="red",pch=22,bg="yellow",xlim=c(0,12),ylim=c(0,500),lwd=2,xlab="倍数",ylab="时间（s）",main="Run time",col.main="black",font.main=2,asp=0,cex=1.2)
plot(week,x,col="red",pch=22,bg="yellow",xlim=c(0,12),ylim=c(0,500),lwd=2,xlab="倍数",ylab="时间（s）",main="Run time",col.main="black",font.main=2,asp=0,cex=1.2,type="b",lty=1)
lines(week,y,col="green",pch=16,bg="yellow",xlim=c(0,12),ylim=c(0,500),lwd=2,xlab="倍数",ylab="时间（s）",main="Run time",col.main="black",font.main=2,asp=0,cex=1.2,type="b",lty=2)
legend("topright",legend=c("R","R with Hadoop"),pch=c(22,16),col=c("red","green"),lwd=2,lty=c(1,2))