<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<div class="moz-cite-prefix"><br>
opa! :-)<br>
<br>
Bacana este exemplo! Acho que conseguirei adaptar sim a ideia para
o meu caso.<br>
Será algo parecido exceto que cada 'click' abrirá um novo gráfico
(com 'dev.new()')<br>
<br>
Obrigado pelo código!<br>
<br>
Cleber<br>
<br>
<br>
Em 27/11/2012 10:14, Rodrigo Coster escreveu:<br>
</div>
<blockquote
cite="mid:CAKU4woscL_Lan3URdfbnPmf-w2KT+bKnpJQECDsshRBTbAhREw@mail.gmail.com"
type="cite">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 moz-do-not-send="true"
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(prompt="Click and drag, hit q to
quit", onMouseDown = mousedown )<br>
<br>
getGraphicsEvent()<br>
<br>
##############<br>
<br>
</blockquote>
</div>
</div>
</blockquote>
<br>
</body>
</html>