<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style></head>
<body class='hmmessage'><div dir='ltr'><br>Boa tarde,<div><br></div><div>estou fazendo um gráfico com os seguintes comandos:</div><div><br></div><div><span style="font-size: 12pt;">sp1 <- c(300, 69, 347, 42, 319, 81, 1, 100, 166, 279, 895, 334)</span></div><div><div>sp2 <- c(0, 24, 0.6, 40, 640, 0, 0, 55, 75, 139, 967, 351)</div><div>sp3 <- c(0, 0, 40, 6, 135, 238, 83, 150, 37, 107, 10)</div><div>sp4 <- c(0, 0, 1, 14, 32, 412, 139, 38, 52, 31, 45)</div><div>sp5 <-c(0, 0, 48, 0, 0, 0, 0, 41, 3, 102, 77, 0)</div></div><div><br></div><div>captura.mensal <- rbind(sp1, sp2, sp3, sp4)</div><div><span style="font-size: 12pt;">colnames(captura.mensal) <- c("jan", "fev","mar", "abr", "mai", "jun", "jul", "ago", "set", "out", "nov", "dez")</span></div><div><br></div><div><div><div>par(cex.lab = 0.8, cex.axis = 0.8, "usr", cex.main = 1.2, font.main=4)</div><div>grafico.1.1 <- barplot(apply(captura.mensal, 2, sort(decreasing = TRUE), beside=TRUE, ylim = c(0,1000),</div><div>ylab = "Captura (t)", col = c("seagreen4", "red3", "purple4", "violetred", "tomato2"), </div><div>font.main = par ("font.main"), cex.axis=par("cex.axis"), cex.lab=par("cex.lab"), border=NA))</div></div><div><br></div><div>Eu preciso truncar o eixo y do gráfico.</div><div>Gostaria de saber qual função que devo usar.</div><div><br></div><div>Agradeço a atenção,</div><div><br></div><div>Aline F. Lipsky</div><div style="font-size: 12pt;"><br></div><div style="font-size: 12pt;"><br></div><div style="font-size: 12pt;"><br></div><div><br></div></div> </div></body>
</html>