Hello, That is why I changed 2 lines in the code. Because points are misplaced if you keep points with the lines.
Regards, Pascal 2013/8/27 Igor Ribeiro <[email protected]> > Because I'm already controlling points using points function. So I don't > want labcurve to change anything on the lines... Just draw the legend the > way I need. > On Aug 26, 2013 8:35 PM, "Pascal Oettli" <[email protected]> wrote: > >> Hello, >> >> Please keep the r-list included when you reply. >> >> Why do you want to add points to lines only in the legend? If so, the >> legend would be incorrect. >> >> Regards, >> Pascal >> >> >> 2013/8/26 Igor Ribeiro <[email protected]> >> >>> Hi Pascal, >>> Thank you very much - your solution works partially - it will include >>> the pch in the legend, but also in the curve, which I don't want. I don't >>> see a way to remove the pch from the curve and leave it only in the legend. >>> Do you have any idea? method="none" doesn't work because then pch is not >>> drawn in the legend :( >>> Thanks! >>> Igor. >>> >>> >>> On Fri, Aug 23, 2013 at 3:09 AM, Pascal Oettli <[email protected]> wrote: >>> >>>> Hello, >>>> >>>> In labcurve, use "keys=c(19,5)". It is said in examples provided in the >>>> help page. >>>> >>>> Regards, >>>> Pascal >>>> >>>> >>>> 2013/8/23 Igor Ribeiro <[email protected]> >>>> >>>>> Dear all, >>>>> I have a plot with two lines and I'm using labcurbe (package Hmisc) to >>>>> show >>>>> the legend. >>>>> Everything works well, except that the line displayed in legend box >>>>> should >>>>> have same style (plotting character) as the line in the plot. This is >>>>> achieved by pch parameter and looks like that it's only supported via >>>>> putKey function (according to the documention here: >>>>> http://www.inside-r.org/packages/cran/Hmisc/docs/bezier). >>>>> >>>>> However, I've been unsucessful to correctly use this function (putKey). >>>>> Could someone help me fix the code below? >>>>> >>>>> library(Hmisc) >>>>> >>>>> rm(list=ls(all=TRUE)) >>>>> timeseries<-c(1950,2000,2050,2100) >>>>> dataseries<-seq(1:4) >>>>> dataseries1<-c(1,2,3,4) >>>>> dataseries2<-c(1.5,2.5,3.5,4) >>>>> plot(timeseries,dataseries,type="n") >>>>> lines(timeseries,dataseries1,col="red",type="o",pch=19) >>>>> lines(timeseries,dataseries2,col="blue",type="o",pch=5) >>>>> curves<-list() >>>>> curves[[1]]<-list(x=timeseries,y=dataseries1) >>>>> curves[[2]]<-list(x=timeseries,y=dataseries2) >>>>> dataSeriesLabels<-c("this legend should have pch=19","this legend >>>>> should >>>>> have pch=5") >>>>> >>>>> # PROBLEM BELOW >>>>> #putKey(z=curves,labels=dataSeriesLabels,pch=19) >>>>> >>>>> labcurve(curves, dataSeriesLabels, type=rep("s",2), lty=rep("solid",2), >>>>> lwd=1, col=c("red","blue"), keys="lines", cex=1, adj="auto", >>>>> keyloc=c("auto"), transparent=FALSE) >>>>> >>>>> Thank you, >>>>> -- >>>>> Igor. >>>>> [email protected] >>>>> >>>>> [[alternative HTML version deleted]] >>>>> >>>>> ______________________________________________ >>>>> [email protected] 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. >>>>> >>>> >>>> >>> >>> >>> -- >>> Igor. >>> [email protected] >>> >>> >> [[alternative HTML version deleted]] ______________________________________________ [email protected] 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.
