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@yahoo.com.br <mailto: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()
##############