obter coordenadas do grafico via mouse interativamente ( sem locator() )
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() ##############
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.
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()
##############
participantes (2)
-
Cleber N.Borges -
Rodrigo Coster