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()