箱线图没有显示R中的所有参数

我写这段代码是为了对一个简单的数据帧执行方差分析,我想从中画一个箱线图

DF <- read.table('chromium.txt',header=TRUE)
Chromium.aov <- aov(Concentration ~ Lab,data=DF)
print(summary(Chromium.aov))

with(DF,boxplot(Concentration,Lab))

这是文本文件

Lab Concentration
1 26.1
1 21.5
1 22.0
1 22.6
1 24.9
1 22.6
1 23.8
1 23.2
2 18.3
2 19.7
2 18.0
2 17.4
2 22.6
2 11.6
2 11.0
2 15.7
3 19.1
3 13.9
3 15.7
3 18.6
3 19.1
3 16.8
3 25.5
3 19.7
4 30.7

然而,R只显示实验室1和2的2个方框图,而不是3和4,我该如何解决这个问题?