Re: [R] two questions about PLOT

From: Jie TANG <totangjie_at_gmail.com>
Date: Tue, 01 Jun 2010 16:10:32 +0800

thanks for your reply.
 I have tried to use rseek.org.But still some problems. When I add "axis(4)" and axis(1,at=1:6,labels=gradeinfo$gradenam),the old tick or labels still
are there as shown in the figure,how could I delete them( the old tick information in x-axis and left y axis )
My script is shown as below :

plot(avegrp,type='l',lty=1,col='black',lwd=4,xlab=xxlab,ylab=yylab,labels=TRUE)
axis(2)
axis(1,at=1:6,labels=gradeinfo$gradenam, tick=FALSE)
par(new=T)

plot(sdgrp,type='l',lty=3,col='red1',xlab=xxlab,ylab=yylab,lwd=4,labels=TRUE) axis(1,at=1:6,labels=gradeinfo$gradenam, tick=FALSE) #axis(2, col = "gold", lty = 2, lwd = 0.5) axis(4)
legend("topright", legend, lty=llty, lwd=llwd,col =lgcol)

2010/6/1 Jannis <bt_jannis_at_yahoo.de>

> I would wote this question one of the most often asked questions here on
> that list ;-). Try searching the help archiwe (www.rseek.org) and you will
> find solutions. I would guess that you need to use something like:
>
> axis(4)
>
> as the sides of the plot are always numbered from bottom,left,top,right
>
> HTH
> Jannis
> Jie TANG schrieb:
>
>> here ,I want to plot two lines in one figure.But I have two problems
>> 1) how to move one of the y-axis to be the right ? I tried to the
>> command"axis(2)",But I failed.
>> 2) how to add the axis information correctly.Since I have use the cmommand
>> "axis(1,at=1:6,labels=gradeinfo$gradenam)"
>> but it seems that the correct information that I want is superposition
>> with the old axis information.What can i do ?
>> the script and figure is shown as below .thanks .:)
>>
>> outflnm<-paste(Outdic,"meansd.jpg",sep="/")
>> jpeg(file=outflnm, bg="transparent")
>> legend<-c("average error","stand quare error")
>> 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()
>>
>> ------------------------------------------------------------------------
>>
>> ______________________________________________
>> R-help_at_r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide
>> http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>>
>>
>
>

-- 
TANG Jie
Email: totangjie_at_gmail.com
Tel: 0086-2154896104
Shanghai Typhoon Institute,China

______________________________________________ R-help_at_r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.

Received on Tue 01 Jun 2010 - 08:13:40 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Tue 01 Jun 2010 - 10:20:25 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.

list of date sections of archive