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()

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


_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.