Hi

thank you for talking the time to help me with this.

I have a sequence of numbers in a file and an equal sequence of various character, say(a b c d) each occurs more than once. I need to plot the numbers so that numbers corresponding to a in the other sequence would have green dots, those corresponding to b a red dot, nothing on c and blue square for d. i.e

2 a  show a green dot
4 b  show a red dot
8 b  show a red dot
6 c  show default colour
2 d  show blue square

I have the code below which plots the data but I have no clue how to inject the extra fancies.

****************************************************************
###########
# ploting #
###########
library(tkrplot)

#just the turning points 
L <- length(I0);                         #points to plot

tt <- tktoplevel()
left <- tclVar(1)
oldleft <- tclVar(1)
right <- tclVar(L)
cury <- tclVar(' ')
curx <- NA
tmpusr <- numeric(4)
tmpplt <- numeric(4)

f1 <- function(){
  lleft <- as.numeric(tclvalue(left))
  rright <- as.numeric(tclvalue(right))
  x <- seq(lleft,rright,by=1)
  par(bg='black', fg='green', col='white', col.axis='white',
      col.lab='magenta', col.main='blue', col.sub='cyan')
  plot(x,I0[x], type='s')

##   par(new=TRUE)
##   plot(x,I1[x], type='s', col='yellow',axes=F)
  
  par(new=TRUE)
  plot(x,I2[x], type='s', col='cyan',axes=F)

  axis(4)    
  tmpusr <<- par('usr')
  tmpplt <<- par('plt')

  if(!is.na(curx)){
    abline(v=curx, col='red', lty=2)
    abline(h=332, col='red', lty=2)
    points(curx,I0[curx],pch=16,col='red')
  }

}

img <- tkrplot(tt, f1,hscale=2,vscale=1.2)
tkconfigure(img, cursor='crosshair')

f2 <- function(...){
    ol <- as.numeric(tclvalue(oldleft))
    tclvalue(oldleft) <- tclvalue(left)
    r <- as.numeric(tclvalue(right))
    tclvalue(right) <- as.character(r + as.numeric(...) - ol)
    tkrreplot(img)
}

f3 <- function(...){
    tkrreplot(img)
}

f4 <- function(...){
  i <- 100
  ol <- as.numeric(tclvalue(oldleft))
  tclvalue(left) <- as.character(ol+i)
  tclvalue(oldleft) <- as.character(ol+i)
  r <- as.numeric(tclvalue(right))
  tclvalue(right) <- as.character(r+i)
  tkrreplot(img)
}

iw <- as.numeric(tcl('image','width', tkcget(img,'-image')))
ih <- as.numeric(tcl('image','height',tkcget(img,'-image')))

mm <- function(x,Y){
  tx <- (as.numeric(x)-1)/iw
  ty <- 1-(as.numeric(Y)-1)/ih
  
  if( tx > tmpplt[1] & tx < tmpplt[2] &
     ty > tmpplt[3] & ty < tmpplt[4] ){
    
    newx <- (tx-tmpplt[1])/(tmpplt[2]-tmpplt[1])*(tmpusr[2]-tmpusr[1])+tmpusr[1]
    curx <<- round(newx)
    tkrreplot(img)

    newy <- I0[curx]
    newy <- floor(newy) + (newy-floor(newy))*32/100

#    newy2 <- I1[curx]
    newy3 <- I2[curx]

    tclvalue(cury) <- paste('x =',curx,'  I0=',round(newy,2)
                            ,'  I2=',round(newy3,4))
  }
} 

tkbind(img, '<Motion>', mm)

l1 <- tklabel(tt, textvariable=cury)

s1 <- tkscale(tt, command=f2, from=1, to=length(I0),
    variable=left, orient="horiz",label='left',length=700)
s2  <- tkscale(tt, command=f3, from=1, to=length(I0),
    variable=right, orient="horiz",label='right',length=700)
b1 <- tkbutton(tt, text='->', command=f4)

tkpack(l1,img,s1,s2,b1)


 __________________________________________________



	[[alternative HTML version deleted]]

