样式化细分图表

Question

我基本上复制了this code from 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"))