Eu até começei a fazer o que estava querendo, porém, não consegui implementar os intervalos de confianças com as respectivas médias. Segue um script abaixo até onde cheguei, se alguém puder continuar e sanar sua dúvida, seria uma grande ajuda!

library(fields)
plot(xlim=c(0,1.8),5:10, bty='n',type="n",axes=F,xlab="Relative catchability",ylab="")
x <- seq(0.0,1.8,by=0.2)
y <- seq(5,14)
u <- 1
v <- 50

axis(1,lwd=2,at = x,labels = formatC(x, format="fg"))
abline(v = 1, col = "black",lty=1,lwd=2)
arrow.plot(x[6],y[6],v,u,arrow.ex=.4, length=.2, col='black', lwd=2)
arrow.plot(x[6],y[6],u-360,v-45,arrow.ex=.5, length=.2, col='black', lwd=2)

text(0,7,"Bigeye\nYellowfin tuna\nAlbacore\nSwordfish\nSailfish\nWhite marlim\nBlue marlim\nBlue shark\nCrocodile shark\nPelagic stingray\nTurtle oliva\nOceanic whitetip shark",cex = 0.8,adj=c(0,0))

text(1.1,5,"Species\nBigeye tuna\nYellowfin tuna\nAlbacore\nSwordfish\nSailfish\nWhite marlim\nBlue marlim\nBlue shark\nCrocodile shark\nPelagic stingray\nTurtle oliva\nOceanic whitetip shark",cex = 0.8,adj=c(0,0))

Utilize as funções plot, segments e par para obter êxito! O link abaixo será útil também.

http://gallery.r-enthusiasts.com/

(S,f,P)

Allaman

\begin{signature}

<<>>=

Prof. Dr. Ivan Bezerra Allaman

Universidade Estadual de Santa Cruz

Departamento de Ciências Exatas e Tecnológicas

Ilhéus/BA - Brasil

Fone: +55 73 3680-5596

E-mail: ivanalaman@yahoo.com.br/ivanalaman@gmail.com

\end{signature}