Вот код для создания параллельного координатного графика:
require(MASS)
shoes <- data.frame(shoes)
parcoord(shoes)
Набор данных shoes
используется для отображения мощности парного t-теста, который является просто фоновой информацией.В обуви есть две колонки, A и B, которые представляют износ из двух материалов подошвы.Если проанализировать правильно, между материалами есть огромная разница.
Хороший способ показать парные данные - это параллельный координатный график, но, как вы можете видеть, это практически ничто без какого-либо цвета.Я хотел бы добавить два цвета, скажем, красный, когда A > B
, и зеленый, когда A < B
.Происходят обе ситуации:
> shoes$A > shoes$B
[1] FALSE FALSE FALSE TRUE FALSE TRUE FALSE FALSE FALSE FALSE
Моя проблема заключается в том, что parcoord()
циклически перебирает цвета по мере прохождения наблюдений, поэтому я не уверен, как указать цвет на основе логического теста.Я пробовал
parcoord(shoes, col = ifelse(shoes$A > shoes$B, "red", "green"))
и различные игры с числами (много, кроме добавления 26) в
my_colors <- colors()[as.numeric(shoes$A > shoes$B) + 26]
parcoord(shoes, col = my_colors)
, но, похоже, ничего не работает.Я либо получаю спектр цветов, все одного цвета, либо все одного цвета, за исключением верхнего и нижнего элементов.Я бы хотел, чтобы FALSE
генерировал один цвет, TRUE
- другой.