r - Rでlapplyから作成された各プロットにタイトルを追加するには?

Question

各箱ひげ図のタイトルとして変数名 (つまり、x、y、および z) を追加しようとしています。

   bpdf = data.frame(group=c("A","A","A","B","B","B","C","C","C"),
                   x=c(1,1,2,2,3,3,3,4,4),
                   y=c(7,5,2,9,7,6,3,1,2),
                   z=c(4,5,2,9,8,9,7,6,7))

    par(mfrow=c(1,3))
    lapply(bpdf[-1],function(x){
    y <- sort(tapply(x,bpdf$group,median),decreasing=TRUE)
    boxplot(x~factor(bpdf$group,levels=names(y)), 
            main=paste(colnames(bpdf[-1])))
    }) 

通話に何かが欠けていmainます (以前のヘルプについては、ht から agstudy に移動してください)。