Добавить цвет к классам в матрице рассеяния (пары)

Question

Мой класс определен в "unscaled.BL_yFYield_CSUSHPINSA" (в основном, 1: вверх 0: вниз).Я хочу раскрасить диаграмму рассеяния на классы, похожие на то, как этот пример демонстрирует, что виды предположительно выделены тремя цветами (обратите внимание, я сократил свой пример до двух цветов).

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

это изображение именно то, чего я пытаюсь достичь (раскраска на основе my_cols и категориальной переменной).В примере с радужной оболочкой я видел только два вида (когда итерировал радужную оболочку вида), но онлайн-код использует 3 цвета на графике, поэтому я не уверен, как это работает с данными.

В моем примере у меня есть два цвета для двух классов (однако, в конечном итоге я хочу расширить свое количество классов до 2).

Пример, предполагая, что BL_yFYield_CSUSHPINSA имеет следующие значения для категориальных 0, 1, 2 и у меня было 3 цвета, определенные в my_cols.

Прямо сейчас, когда я строю график вывода, это - это то, что я получаю

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 пропускает значения с 0 в BL_yfield ... (обрабатывая его как ноль).Я могу попытаться исправить это после факса или добавить 1 к исходному набору данных, чтобы удалить 0 ...

проблема решена

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)