地块之间的箭头答案

【问题标题】：Arrows between plots地块之间的箭头
【发布时间】：2017-03-06 11:47:11
【问题描述】：

我想直接在 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

【解决方案1】：

这是使用par(mfrow=)) 处理3 列的一种方法。如果您想更好地控制列宽，请考虑使用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="")

【讨论】：