r - 如何为点阵图键中的点指定特定的“填充”？

Question

我希望工作的一个简单例子：

library(lattice)
xyplot(1~1, 
  key=list( 
    text=list( c("a", "b") ), 
    points=list(pch=21, fill=c("red", "blue")) ## note pch=21 => filled circle
  )
)

人们会期望图例中使用的点会被填充为红色，但情况似乎并非如此。作为并行，此代码按预期工作：

xyplot(1~1, 
  key=list( 
    text=list( c("a", "b") ), 
    points=list(pch=21, col=c("red", "blue"))
  )
)

有什么想法可以强制格子为图例点使用特定的填充吗？