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>
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@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.