Заполнение кругов в решетке рассеяния по условию

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)