Algo parecido com isso?<div><br></div><div><div>x <- sample(1:10) + runif(10)</div><div>n <- length(x)</div><div>y <- x + rnorm(10)</div><div>plot(x,y, cex=2)</div><div>seleciona <- NULL</div><div><br></div><div>
while (a <- identify(x,y,n=1,plot=F)) {</div><div> seleciona <- c(seleciona,a)</div><div> plot(x,y,col=ifelse(1:n %in% seleciona,2,1), cex=2)</div><div> if (length(seleciona) > 1) {</div><div>  mod <- lm(y[seleciona] ~ x[seleciona])</div>
<div>  abline(mod)</div><div> }</div><div>}</div></div><div><br></div><div class="gmail_extra"><br><br><div class="gmail_quote">2012/11/27 Cleber N.Borges <span dir="ltr"><<a href="mailto:klebyn@yahoo.com.br" target="_blank">klebyn@yahoo.com.br</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">olá,<br>
<br>
Preciso obter as coordenadas de pontos e, condicionalmente a estas<br>
coordenadas, traçar novos graficos de forma interativa.<br>
<br>
"locator()" não serve pq fica congelado até escolher todos pontos.<br>
Quero que a cada 'click', gere um novo grafico.<br>
<br>
Tentei adaptar os exemplos da função "getGraphicsEvent()"<br>
mas ainda não entendi o funcionamento direito.<br>
<br>
Gostaria de que fosse retornado as coordenadas de onde o usuario dar o 'click'...<br>
<br>
Abaixo segue o que tentei fazer.<br>
<br>
Agradeço antecipadamente a aquem tentar ajudar<br>
Grato.<br>
<br>
Cleber<br>
<br>
##############<br>
<br>
plot( cbind(1:3,1), cex=2 )<br>
<br>
mousedown <- function( buttons, x, y ){<br>
x <- grconvertX(x, 'dev', 'user')<br>
y <- grconvertY(y, 'dev', 'user')<br>
r <- c( x,y  )<br>
return( r )<br>
}<br>
<br>
setGraphicsEventHandlers(<u></u>prompt="Click and drag, hit q to quit", onMouseDown = mousedown )<br>
<br>
getGraphicsEvent()<br>
<br>
##############<br>
<br>
<br>
______________________________<u></u>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/<u></u>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-<u></u>guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div><br></div>