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

ラティスが凡例ポイントに特定の塗りつぶしを使用するように強制する方法はありますか?