
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