[R-br] ggplot2, círculos e setas

[Roney Fraga Souza]

Pessoal, 

Estou fazendo um gráfico no ggplot2() com o seguinte código:

#————————————
# inicio do código
#————————————
library(ggplot2)
library(grid)
mydf <- read.csv(file='http://dpaste.com/24KGSW9.txt', sep=',')
head(mydf)
g <- ggplot(data=mydf, aes( x=t.ano, y=nn.t.grupo, size=t.ttgrupo)) +
geom_point(shape=21) + 
scale_size_area(max_size=12) + 
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)) +
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)) +
geom_segment( data=mydf, aes( x = xbeg, y = ybeg, xend = xend, yend = yend), 
             arrow = arrow(length = unit(0.30,"cm"), type='closed'), size=0.5, color='black') +
theme(legend.position='none')
print(g)
#————————————
# fim do código
#————————————

O link do gráfico esta aqui.
http://i.imgur.com/o0nyYzA.png <http://i.imgur.com/o0nyYzA.png>

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?

Att
Roney
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20141024/b7973b5f/attachment.html>