Mauro,<br><br>Ou aumente as margens ou use nomes com quebra de linha. Veja<br><br><span style="font-family: courier new,monospace;">## Increase bottom margin to make room for rotated labels</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">par(mar = c(7, 4, 4, 2) + 0.1)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">## Create plot with no x axis and no x axis label</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">plot(1 : 8, xaxt = "n",  xlab = "")</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">## Set up x axis with tick marks alone</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">axis(1, labels = FALSE)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">## Create some text labels</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">labels <- paste("Label\n muito\n grande", 1:8, sep = " ")</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">## Plot x axis labels at default tick marks</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">text(1:8, par("usr")[3] - 0.25, srt = 45, adj = 1,</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">     labels = labels, xpd = TRUE)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">## Plot x axis label at line 6 (of 7)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">mtext(1, text = "X Axis Label", line = 6)</span><br style="font-family: courier new,monospace;">
<br>À disposição.<br>Walmes.<br><br><br>===========================================================<br>Walmes Marques Zeviani<br>LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)<br>Departamento de Estatística - Universidade Federal do Paraná<br>
fone: (+55) 41 3361 3573<br>VoIP: (3361 3600) 1053 1173<br>e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a><br>twitter: @walmeszeviani<br>homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a><br>
linux user number: 531218<br>===========================================================<br>