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 <[email protected] <mailto:[email protected]>>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 [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
