r - 凡例をボックスに入れる方法

Question

以下のコードに示されている凡例をボックスで囲むにはどうすればよいですか? 「凡例」機能を試していますが、役に立ちません。

library("affy")
library("affycoretools")
data(sample.ExpressionSet)
plotPCA(sample.ExpressionSet, groups =
       as.numeric(pData(sample.ExpressionSet)[,2]), groupnames =
       levels(pData(sample.ExpressionSet)[,2]))