Стрелки между участками

Я хотел бы добавить несколько стрелок между графиками непосредственно на R, как на этом рисунке, стрелки между графиками:

введите здесь описание изображения

Пока у меня есть только графики с кодом ниже, но я не могу понять, как добавить стрелки

# 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)

r plot arrows
person Francisco    schedule 06.03.2017    source источник
comment
Думаю можно открыть три панели сюжетов, а среднюю только для стрелок   -  person Vida Wang    schedule 06.03.2017

Ответы (1)


arrow_upward
0
arrow_downward

Вот один из способов сделать это с 3 столбцами, используя par(mfrow=)). Если вы хотите лучше контролировать ширину столбцов, рассмотрите возможность использования layout вместо 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="")

введите здесь описание изображения

person Pierre Lapointe    schedule 06.03.2017