如何在R中对全部样本和子样本进行箱图绘制？

debugcn 发表于 Dev

我有1个完整样本和10个子样本的阅读成绩（grace（5）= 10个组合的gender（2））。我想一起展示所有11个箱形图。下面的代码生成10个箱形图，但缺少完整样本的比较箱形图。

如何将全部11个箱形图放置在同一图形/图形中，以便它们共享标题，x轴，y轴等？

理想情况下，如何将10个子种群箱形图放置在1个最大宽度的总体箱形图中，该图跨越（透明地分层放置）所有10个子种群箱形图，以使查看者能够以图形方式将每个子样本的1Q，中位数和3Q与整个样本的图表进行比较？（例如，请参见下面的示例，其中红色方框图表示hs1 $ read的完整样本（1Q：44，中位数：50，3Q：60）。）

理想的超级箱线图

设置：

hs1 = read.table("http://www.ats.ucla.edu/stat/data/hs1.csv", header = T, sep = ",")
## ten boxplots (that i wish to combine with one more representing full sample)
boxplot( read ~ interaction(gender, race), data=hs1, las=2 )

财务管理师

boxplot( read ~ interaction(gender, race), data=hs1, las=2 )
bxpfull <- boxplot( hs1$read, plot=FALSE)

 bxp(bxpfull, at= 5, add=TRUE, boxwex=18, 
      pars= list(boxcol="red",medcol="red", medbg="red", 
                 whiskcol="red", staplecol="red") )

在此处输入图片说明

如果您想要透明的颜色（并非所有图形设备都支持），那么这将为您带来透明的粉红色结果：

 bxp(bxpfull, at= 5, add=TRUE, boxwex=18, 
      pars= list(boxcol="#ff000050",medcol="#ff000050", medbg="#ff000050", 
                 whiskcol="#ff000050", staplecol="#ff000050") ,las=2)

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。