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]))