[R-br] salvando gráfico

[Aline Lipsky]

Boa tarde prezados colegas,
Estou tentando salvar um gráfico com o seguinte comando:
jpeg("Figura1.jpg") 
par(cex.lab = 0.8, cex.axis = 0.8, "usr", cex.main = 1.2, font.main=4)taxacaptura <- tabela3[,9]names(taxacaptura) <- rownames(tabela3)taxacaptura <- taxacaptura [-26]taxacaptura <- sort (taxacaptura, decreasing = TRUE)
figura.1 <- barplot(sort( tabela3[1:25,9], decreasing=TRUE), width = 0.4,beside=TRUE,                      ylab="Taxa de desembarque (t/desembarque)", col = "deepskyblue4", ylim=c(0,10),                      font.main = par ("font.main"), cex.axis=par("cex.axis"), cex.lab=par("cex.lab"), border=NA, names.arg = NA)
axis(1, labels = FALSE, lwd.ticks = 0) # criar uma linha no eixo x sem os riscados (ticks)text(figura.1, par("usr")[3], srt=45, cex = 0.75, lab = names(taxacaptura) , adj = 1.1, xpd=NA, cex.axis = 0.4) 
dev.off() 
Quando insiro a imagem no word ela aparece em branco. O que posso fazer para solucionar esse problema?
Grata pela atenção,
Aline



 		 	   		  
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140620/cb8680eb/attachment.html>