绘制线段图

Question

我本质上是复制这段来自UPenn的代码，并希望添加一些造型到片段，特别是我想有不同的颜色，因为线的斜率是负的。欢迎其他造型建议。

谢谢，代码复制如下：

a <- rnorm(10)
b <- a - rnorm(10)
plot(rep(1,10),a, xlim = c(1,2), ylim = range(a,b) ,xlab = "Back and Forth",ylab = "The values",axes = F)
points(rep(2,10),b)
axis(2)
axis(1,labels = c("Back","Forth"),at = 1:2)
arrows(rep(1,10),a,rep(2,10),b,code = 1)

Answer 1

如果要更改行的颜色，请设置col=属性。

arrows(rep(1,10),a,rep(2,10),b,code = 1, col=ifelse(a>b,"blue","orange"))