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

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.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) e forneça código mínimo reproduzível.