制作分组数据的箱线图

Question

我有 4 个数据框，由如下所示的数据组成（HuL1 是骨头）：

   CEMETERY    SEX CONTEXT HuL1.L HuL1.R DIRECTIONAL.ASYMMETRY
1  Medieval FEMALE    7172    285    286             0.3508772
2  Medieval FEMALE    8117    316    320             1.2658228
3  Medieval FEMALE   11090    309    312             0.9708738
14 Medieval FEMALE      19    326    332             1.8404908
15 Medieval FEMALE     349    310    313             0.9677419
16 Medieval FEMALE     383    319    322             0.9404389

和

        CEMETERY  SEX CONTEXT HuL1.L HuL1.R DIRECTIONAL.ASYMMETRY
43 Post-Medieval MALE      20    317    321             1.2618297
44 Post-Medieval MALE      35    334    332            -0.5988024
45 Post-Medieval MALE      47    328    334             1.8292683
46 Post-Medieval MALE     143    332    332             0.0000000
47 Post-Medieval MALE     147    351    354             0.8547009

每个数据帧的长度不同，其中 2 个由“中世纪”数据组成，另外 2 个是“中世纪后”数据（A = 中世纪女性数据，B= 中世纪男性数据，C = 中世纪后女性数据，D =中世纪后的男性数据）。 我使用

制作了箱线图

 x=boxplot(A$DIRECTIONAL.ASYMMETRY,B$DIRECTIONAL.ASYMMETRY,
C$DIRECTIONAL.ASYMMETRY
,D$DIRECTIONAL.ASYMMETRY,xlab="PERIOD",ylab="DIRECTIONAL ASYMMETRY 
(%)",names=c("Medieval","Medieval","Post-Medieval","Post-
Medieval"),col=c("turquoise","red","turquoise","red"))

legend(x="topleft",title="Sex",c("Female","Male"),fill=c("turquoise","red"))

但我希望将“中世纪”和“后中世纪”地块组合在一起，因此 x 轴只表示中世纪和后中世纪一次。

Answer 1

boxplot(A$DIRECTIONAL.ASYMMETRY,B$DIRECTIONAL.ASYMMETRY,
        C$DIRECTIONAL.ASYMMETRY, D$DIRECTIONAL.ASYMMETRY, 
        xlab="PERIOD",ylab="DIRECTIONAL ASYMMETRY(%)",
        col=c("turquoise","red","turquoise","red"))

axis(side = 1, at = c(1.5, 3.5), labels = c("Medieval", "Post-Medieval"))

legend(x="topleft",title="Sex",c("Female","Male"),fill=c("turquoise","red"))