[R-br] obter coordenadas do grafico via mouse interativamente ( sem locator() )

[Rodrigo Coster]

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 em 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 em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/**cgi-bin/mailman/listinfo/r-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<http://www.leg.ufpr.br/r-br-guia>)
> e forneça código mínimo reproduzível.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121127/41eb634d/attachment.html>