Question

我在“ unscaled.BL_yFYield_CSUSHPINSA”（基本上是1：up 0：down）中定义了我的课程。我希望将散点图着色为类似于本示例说明类别以三种颜色突出显示的类别的类（请注意，我已将示例简化为两种颜色）。

http://www.sthda.com/english/wiki/scatter-plot-matrices-r-base-graphs

这个image正是我要实现的目标（基于my_cols和分类变量的着色）。在鸢尾花示例中，我只看到两个种类（当我迭代iris $ species时），但是在线代码在图形中使用了3种颜色，因此我不确定该如何使用数据。

我的示例中，我有两个类别的两种颜色（但是，最终我希望将类别数扩展到2种以上）。

例如，假设BL_yFYield_CSUSHPINSA具有以下0、1、2分类值，而我在my_cols中定义了3种颜色。

现在，当我绘制输出图形时，我会得到this

pre_MyData <- read.csv(file="https://raw.githubusercontent.com/thistleknot/FredAPIR/master/reduced.csv", header=TRUE, sep=",")

MyData <- pre_MyData[,11:18]

my_cols <- c("#00AFBB", "#E7B800") 
pairs(MyData[,1:8], pch = 19, cex = 0.5,
      col = my_cols[MyData$unscaled.BL_yFYield_CSUSHPINSA],
      lower.panel = NULL)

Answer 1

我考虑了一下。答案在我的屏幕截图中。 my_cols在BL_yfield中跳过值为0的值（将其视为null）。我可以尝试在传真后进行修复，也可以在原始数据集中添加1来删除0 ...

问题solved

pre_MyData <- read.csv(file="https://raw.githubusercontent.com/thistleknot/FredAPIR/master/reduced.csv", header=TRUE, sep=",")

MyData <- pre_MyData[,11:18]

my_cols <- c("#00AFBB", "#E7B800") 
pairs(MyData[,1:8], pch = 19, cex = 0.5,
      col = my_cols[MyData$unscaled.BL_yFYield_CSUSHPINSA+1],
      lower.panel = NULL)

将颜色添加到散点图矩阵中的类（对）

1 个答案: