如何在框中包含图例

Question

如何将下面代码中显示的图例放在框内？我正在尝试“传奇”功能，但无济于事。

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