R：在 R 中的点后面绘制线段

Question

我正在使用 'beeswarm' 包并想在我的点后面绘制一条 abline。下面的代码将在我的点之上绘制线。

library(beeswarm)
testdf<-data.frame(a=c(1,1,1,2,2,2,3,3,3),b=c(1,2,3,1,4,6,1,3,4))
beeswarm(b ~ a,data=testdf,col="red",bg="red",pch=21)
abline(3,0)

我知道这个问题已经针对仅使用基数 R 的绘图得到了解答（例如此处：How do I draw gridlines using abline() that are behind the data?），但是这些解决方案在应用于我的数据时只创建了两个图，一个是 abline，一个是蜂群地块。

在此先感谢您的帮助！

Answer 1

您可以在最后使用参数 add = TRUE 添加对 beeswarm 的第二次调用。

我在这个例子中把点放大了，所以你可以清楚地看到它们绘制在 abline

library(beeswarm)
testdf<-data.frame(a=c(1,1,1,2,2,2,3,3,3),b=c(1,2,3,1,4,6,1,3,4))
beeswarm(b ~ a,data=testdf,col="red",bg="red",pch=21, cex = 5)
abline(3,0)
beeswarm(b ~ a,data=testdf,col="red",bg="red",pch=21, cex = 5, add = TRUE)

Answer 2

在 beeswarm 函数中将 abline 调用传递给 panel.first



library(beeswarm)

testdf<-data.frame(a=c(1,1,1,2,2,2,3,3,3),b=c(1,2,3,1,4,6,1,3,4))

beeswarm(b ~ a,data=testdf,col="red",bg="red",pch=21, panel.first = abline(3,0))

^{由 reprex package (v0.3.0)}

于 2020-05-14 创建

R：在 R 中的点后面绘制线段

R: plot line segment behind points in R

plot

r

beeswarm