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

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

任何想法如何强制格子使用特定填充的图例点？