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