Caros, Obtive na lista internacional duas sugestões para resolver o problema e as deixo aqui para registro: x<-c(1,2,3,4,5,6) y<-c(20,30,15,7,25,40) plot(x,y,type="b",ylim=c(0,45)) identify(x,y,labels=y) dev2bitmap('test.png',width=20,height=20,units="cm",res=300) x<-c(1,2,3,4,5,6) y<-c(20,30,15,7,25,40) plot(x,y,type="b",ylim=c(0,45)) marks <- identify(x,y,labels=y,pos=TRUE) png(filename="test.png",width=20,height=20,units="cm",res=300) plot(x,y,type="b",ylim=c(0,45)) xym <- cbind(x=x[marks$ind], y=y[marks$ind]) points(xym) text(xym, labels=xym[,"y"], pos=marks$pos) dev.off() Sds Antônio Olinto Em 2 de fevereiro de 2015 11:57, Antonio Silva <aolinto.lst@gmail.com> escreveu:
Olá a todos
Quero salvar um gráfico após o uso do comando identify mas não consegui.
Utilizo o comando identify para adicionar etiquetas aos pontos de forma manual, para que os números não fiquem embolados ou sobre as linhas.
Exemplo
x<-c(1,2,3,4,5,6) y<-c(20,30,15,7,25,40) plot(x,y,type="b",ylim=c(0,45)) identify(x,y,labels=y)
No entanto, quando escrevo
png(filename="teste.png",width=20,height=20,units="cm",res=300) x<-c(1,2,3,4,5,6) y<-c(20,30,15,7,25,40) plot(x,y,type="b",ylim=c(0,45)) identify(x,y,labels=y) dev.off()
o gráfico é gravado sem aparecer na tela e consequentemente sem a identificação dos pontos.
Utilizo o R integrado ao gedit no UBUNTU Trusty Tahr 64 bits. Gostaria de fazer o procedimento pela linha de comando, sem a utilização de GUIs. Há alguma forma de gravar o gráfico com os pontos identificados?
Obrigado!
Antônio Olinto
-- Antônio Olinto Ávila da Silva Biólogo / Oceanógrafo Instituto de Pesca (Fisheries Institute) São Paulo, Brasil