<html><head><meta http-equiv="Content-Type" content="text/html charset=utf-8"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class="">Pessoal, <div class=""><br class=""></div><div class="">Estou fazendo um gráfico no ggplot2() com o seguinte código:</div><div class=""><br class=""></div><div class="">#————————————</div><div class=""># inicio do código</div><div class="">#————————————</div><div class=""><div class="">library(ggplot2)</div><div class="">library(grid)</div><div class="">mydf <- read.csv(file='<a href="http://dpaste.com/24KGSW9.txt'" class="">http://dpaste.com/24KGSW9.txt'</a>, sep=',')</div><div class="">head(mydf)</div><div class="">g <- ggplot(data=mydf, aes( x=t.ano, y=nn.t.grupo, size=t.ttgrupo)) +</div><div class="">geom_point(shape=21) + </div><div class="">scale_size_area(max_size=12) + </div><div class="">scale_x_continuous(limits=c(min(mydf[,'t.ano']), max(mydf[,'t.ano'])), breaks = seq(min(mydf[,'t.ano']), max(mydf[,'t.ano']),by=1)) +</div><div class="">scale_y_continuous(limits=c(min(mydf[,'nn.t.grupo']), max(mydf[,'nn.t.grupo'])), breaks = seq(min(mydf[,'nn.t.grupo']), max(mydf[,'nn.t.grupo']),by=1)) +</div><div class="">geom_segment( data=mydf, aes( x = xbeg, y = ybeg, xend = xend, yend = yend), </div><div class=""> arrow = arrow(length = unit(0.30,"cm"), type='closed'), size=0.5, color='black') +</div><div class="">theme(legend.position='none')</div><div class="">print(g)</div><div class="">#————————————</div></div><div class=""><div class=""># fim do código</div><div class="">#————————————</div></div><div class=""><br class=""></div><div class="">O link do gráfico esta aqui.</div><div class=""><a href="http://i.imgur.com/o0nyYzA.png" class="">http://i.imgur.com/o0nyYzA.png</a></div><div class=""><br class=""></div><div class="">Eu preciso que as setas iniciem e parem nas bordas dos círculos, considerando o tamanho dos círculos depende da variável mydf$t.ttgrupo. Ou seja, eu teria que saber o raio dos círculos para desconta-los nas variáveis mydf$xbeg e mydf$xend. Alguma dica de como fazer isso?</div><div class=""><br class=""></div><div class="">Att</div><div class="">Roney</div></body></html>