flèches entre les parcelles

Question

Je voudrais ajouter quelques flèches entre parcelle directement sur R comme dans cette image, des flèches entre les parcelles:

Jusqu'à présent, je n'ont que les parcelles avec le code ci-dessous, mais je ne peut pas comprendre comment ajouter les flèches

# devtools::install_github("franciscorichter/dmea") 
library(dmea) 

s = sim_phyl() 
par(mfrow=(c(1,2))) # 1 row but 2 plot panels 
color = 'darkgreen' 
plot(s$newick,direction = 'upwards',show.tip.label=FALSE,edge.width=5,edge.color = color,type="fan", no.margin = TRUE) 
dropex <- drop.fossil(s$newick) 
plot(dropex,direction = 'upwards',show.tip.label=FALSE,edge.width=5,edge.color = color,type="fan", no.margin = TRUE) 

Answer 1

Voici une façon de le faire avec 3 colonnes à l'aide par(mfrow=)) .Si vous souhaitez avoir plus de contrôle sur les colonnes largeur, pensez à utiliser layout au lieu de par(mfrow=)).

par(mfrow=(c(1,3))) # 1 row but 3 plot panels 
plot(1:10, yaxt="n",ylab="") 
plot(1:10,type="n", yaxt="n",xaxt="n",xlab="", ylab="", bty="n") 
arrows(x0=10, y0=7, x1 = 1, y1 = 7) 
arrows(x0=1, y0=3, x1 = 10, y1 = 3) 
plot(10:1, yaxt="n",ylab="")