Использование групп в решетчатом графике с пользовательским символом grImport

Question

Я использую xyplot для создания графиков с пользовательскими символами, импортированными с помощью пакета grImport. Чтобы использовать символы с xyplot, я следую примеру в документации grImport:

panel = function(x, y, ...){grid.symbols(customSymbol, x, y, units = "native",size = unit(15, "mm"))}

Я хотел бы использовать аргумент groups для различных цветных пользовательских символов (например, redSymbol, blueSymbol, purpleSymbol). После прочтения похоже, что я использовал бы panel.superpose, но я не уверен, как это сделать с grid.symbols?

Я знаю, как добавить новые слои в xyplot с другими grid.symbols, но я бы хотел вместо этого начать использовать группы. Спасибо!

РЕДАКТИРОВАТЬ: Вот модифицированный пример из документации

#Create custom symbol
library(grImport)
PostScriptTrace("flower.ps") #Start with any SVG file and convert to .ps
blackFlower <- readPicture("flower.ps.xml")

#Create red flower
blackFlowerRGML <- xmlParse("flower.ps.xml")
xpathApply(blackFlowerRGML, "//path//rgb", 'xmlAttrs<-',value = c(r = 1, g = 0, b = 0))
saveXML(blackFlowerRGML, "redFlower.ps.xml")
redFlower <- readPicture("redFlower.ps.xml")

#Scatter plot with two groups (black and red flowers)

library("cluster")
xyplot(V8 ~ V7,data = flower, groups=V1,par.settings=list(superpose.symbol=list(grid.symbols(blackFlower),grid.symbols(redFlower))))