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

[Cleber N.Borges]

opa! :-)

Bacana este exemplo! Acho que conseguirei adaptar sim a ideia para o meu 
caso.
Será algo parecido exceto que cada 'click' abrirá um novo gráfico (com 
'dev.new()')

Obrigado pelo código!

Cleber


Em 27/11/2012 10:14, Rodrigo Coster escreveu:
> 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 
> <mailto: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()
>
>     ##############
>

-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121127/cc698a9d/attachment.html>