Algo parecido com isso?

x <- sample(1:10) + runif(10)

n <- length(x)

y <- x + rnorm(10)

plot(x,y, cex=2)

seleciona <- NULL

while (a <- identify(x,y,n=1,plot=F)) {

 seleciona <- c(seleciona,a)

 plot(x,y,col=ifelse(1:n %in% seleciona,2,1), cex=2)

 if (length(seleciona) > 1) {

  mod <- lm(y[seleciona] ~ x[seleciona])

  abline(mod)

 }

}

2012/11/27 Cleber N.Borges <klebyn@yahoo.com.br>

olá,

Preciso obter as coordenadas de pontos e, condicionalmente a estas
coordenadas, traçar novos graficos de forma interativa.

"locator()" não serve pq fica congelado até escolher todos pontos.
Quero que a cada 'click', gere um novo grafico.

Tentei adaptar os exemplos da função "getGraphicsEvent()"
mas ainda não entendi o funcionamento direito.

Gostaria de que fosse retornado as coordenadas de onde o usuario dar o 'click'...

Abaixo segue o que tentei fazer.

Agradeço antecipadamente a aquem tentar ajudar
Grato.

Cleber

##############

plot( cbind(1:3,1), cex=2 )

mousedown <- function( buttons, x, y ){
x <- grconvertX(x, 'dev', 'user')
y <- grconvertY(y, 'dev', 'user')
r <- c( x,y  )
return( r )
}

setGraphicsEventHandlers(prompt="Click and drag, hit q to quit", onMouseDown = mousedown )

getGraphicsEvent()

##############