Displaying 1 result from an estimated 1 matches for "sdgrp".
2010 May 31
3
two questions about PLOT
...)
lgcol<-c("black","red1")
par(las=1)
yylab<-c("forecast error")
xxlab<-c("typhoon class")
llty<-c(1,3)
llwd<-c(4,4)
#par(bg='yellow')
plot(avegrp,type='l',lty=1,col='black',lwd=4,xlab=xxlab,ylab=yylab)
par(new=T)
plot(sdgrp,type='l',lty=3,col='red1',xlab=xxlab,ylab=yylab,lwd=4)
#axis(2, col = "gold", lty = 2, lwd = 0.5)
legend("topright", legend, lty=llty, lwd=llwd,col =lgcol)
axis(1,at=1:6,labels=gradeinfo$gradenam)
dev.off()
--
TANG Jie
Email: totangjie at gmail.com
Tel: 0086-...