0

我正在使用 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 来做到这一点？

我确实知道如何使用不同的 grid.symbols 向 xyplot 添加新图层，但我想开始使用组。谢谢！

编辑：这是文档中的修改示例

#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))))
4

0 回答 0