R:如何画一 strip 有多个箭头的线？

Question

我想知道是否有人可以帮助我在 R 中绘制带有多个箭头的线条，如下所示:

--->--->--->--->

提前致谢!

Answer 1

根据对原始问题的澄清，我认为一般的答案应该考虑

计算由 (x,y) 点指定的折断曲线的总长度

拆分中间段以确保箭头之间的曲线长度相等

处理一些次要的细节，例如初始“阶段”、终点、箭头头后面是否应该有一个细小的空间等。

下面是一个粗略的尝试。

arrowLine <- function(x, y, N=10, ...){
  lengths <- c(0, sqrt(diff(x)^2 + diff(y)^2))
  l <- cumsum(lengths)
  tl <- l[length(l)]
  el <- seq(0, to=tl, length=N+1)[-1]

  plot(x, y, t="l", ...)

  for(ii in el){

    int <- findInterval(ii, l)
    xx <- x[int:(int+1)]
    yy <- y[int:(int+1)]

    ## points(xx,yy, col="grey", cex=0.5)

    dx <- diff(xx)
    dy <- diff(yy)
    new.length <- ii - l[int]
    segment.length <- lengths[int+1]

    ratio <- new.length / segment.length

    xend <- x[int] + ratio * dx
    yend <- y[int] + ratio * dy
    points(xend,yend, col="white", pch=19)
    arrows(x[int], y[int], xend, yend, length=0.1)

}

}

set.seed(123)
x = sort(c(0, runif(200, 0,2* pi), 2*pi))
y=sin(x)

arrowLine(x, y, N=20)