按条件填充晶格散点图中的圆

Question

我有以下代码：

require(lattice)
data <- data.frame(x = c(1,1,2,3,4,5), y = c(5,1,4,6,1,7), 
                   color = c("red", "red", "black", "blue", "yellow", "red"))
data$size <- data$x*data$y*0.2
xyplot(data$y ~ data$x, xlab = "x", ylab = "y", cex = data$size, ylim = c(0,11), xlim = c(0,6))

如您所见，这给出了散点图以及条件圆的大小。我想做的是也按条件填充圆圈（data$color提供的颜色）。我尝试使用fill选项，但无法提供我想要的东西。我将不胜感激有关如何实现这一目标的任何建议。

Answer 1

我们可以将pch参数设置为实心圆。

library(lattice)

xyplot(data$y ~ data$x, xlab = "x", ylab = "y", cex = data$size, ylim = c(0,11), xlim = c(0,6),
       col = data$color, pch = 19)