Boxplot将行添加到单个框中

Question

我正在绘制transitivity中某些图表的本地群集（type = c('local')和boxplot参数）。

我计算了这些图的global传递性，我希望将其表示为与每个框一样宽的图的附加线。

 df <- data.frame(values = c(full_trans, clus_trans), vars = rep(c("Full","Clustering"), times=c(20,20)))
 par(mfrow=c(1,1))
 boxplot(values~vars, data=df, ylim=c(0:1), yaxt='n', boxwex=0.5)

我尝试了abline，但它在所有情节中划了一条线，但这看起来并不像我想要的那样。

Answer 1

创建数据：

d = data.frame(a=rnorm(10),b=rnorm(10))

绘制定义宽度的箱线图：

my_width = 0.5
boxplot(d, boxwex=my_width)

使用另一个boxplot（绿色）

添加全局透射率线

global_tr = 0.3
extra_d = data.frame(a=global_tr,b=global_tr)
boxplot(x = extra_d, at = c(1,2), add=T,col=3,  boxwex=my_width, border=3)

...或使用细分（红色）

x = 1:2
segments(x0=x-0.5*my_width, x1=x+0.5*my_width,y0=0.3, y1=0.3, col=2)