如何使用 featurePlot 标记超过 7 个类？

Question

我用以下命令绘制了一些火车数据

obj<-featurePlot(x=otto.all[,1:5], y = otto.all$target, plot="pairs", auto.key = list(columns = 9))

数据包含target 中的9 个类。不幸的是，我发现，该功能 最后两个班级有重复的颜色：

更新

以下代码

obj<-featurePlot(x=otto.all[,1:5], y = otto.all$target, plot="pairs", auto.key = list(columns = 9),col=c("#d82b25","#073ca5","#9c9ea0","#ffce49","#03f92c","#16f4c2","#69167e","#191a92","#000000"))

显然影响个别情节，但不影响图例：

如您所见，青色出现在情节中，但没有出现在传说中。此外，legent 仍然会重复最后两种颜色。

（最后两种颜色是蓝色和洋红色作为前两种）

如何让它要么不自动重复，要么明确指定特定的颜色？

Answer 1

更改 superpose.symbol 图形参数可以解决问题。
要查看您当前的主题，请使用show.settings()；要查看 superpose.symbol 的当前值，请使用 str(trellis.par.get("superpose.symbol"))。这些是我们需要改变的价值观。

所以，让我们想出一组颜色，比如说

myColors<- c("#000000", "#7fff00", "#8b0000", "#9932cc", "#ff7f00", "#458b00", "#008b8b", "#0000ff", "#ffff00" )

还有九个不同的符号，
pch_vector <- c(0,6,12,18,1, 8, 19, 15, 17)。

接下来，创建新设置：

 my_settings <- list(superpose.symbol=list(alpha = rep(1, 9), col=myColors,
    cex=rep(0.8, 9), fill= myColors, font = rep(1, 9), pch=pch_vector)

然后您可以使用以下命令全局更改设置：

trellis.par.set(my_settings)

或在本地，通过在您的featurePlot() 调用中使用par.settings= 参数：

    obj<-featurePlot(x=otto.all[,1:5], y = otto.all$target, plot="pairs", 
auto.key = list(columns = 9), par.settings=my_settings) 

Answer 2

函数featurePlot 使用lattice 创建绘图。尝试添加 ,col=c("blue","green",...) 作为参数并添加您想要的 9 种颜色。 您也可以使用hex colour codes。例如：

,col=c("#d82b25","#073ca5","#9c9ea0","#ffce49","#03f92c","#16f4c2","#69167e","#191a92","#000000")

Answer 3

如果您使用主题，则auto.key 会受到影响。例如，您应该会看到以下方面的差异：

featurePlot(iris[, 1:4], iris$Species, plot="pairs", 
            auto.key = list(columns = 2))

和

col.whitebg()
featurePlot(iris[, 1:4], iris$Species, plot="pairs", 
            auto.key = list(columns = 2))