用R中的箱形图绘制最后一个数据点

Question

我有很多数据集，我想做的是为每个数据集制作一个箱形图，并绘制每个箱形图中的最后一个数据点。我提出的公式是：

par(mfrow=c(4,6))
for (i in 2:24) {wb[, i] <- as.numeric(as.character( wb[, i] ))}
for (i in 2:24) {boxplot(wb[,i], main=colnames(wb[i]))} 
for (i in 2:24) {points(wb[1,i])} 

虽然我得到每个数据集的箱形图，但由于某种原因，我看不到最后的数据点。我只是想看看当前数据与历史运动的比较。另外我想知道是否有办法为par函数创建的情节制作标题？

Answer 1

所有点都被添加到最终的箱图中，因为当您完成绘制箱图时，该部分图是活动的绘图区域。您只需稍微更改绘图的顺序：

par(mfrow=c(4,6))
for (i in 2:24) {
  wb[, i] <- as.numeric(as.character( wb[, i] ))
  boxplot(wb[,i], main=colnames(wb[i])) 
  points(wb[1,i])
}