R максимум наблюдений для цветовой схемы в сюжете

Question

Я работаю с относительно большим набором данных (n> 1000).Я столкнулся с проблемой при применении «ifelse» для указания различных цветов на графике.

При небольшом выборе данных отображаются указанные цвета.При использовании большого набора данных цвета отображаются красным и зеленым независимо от того, какие цвета я указал.До сих пор я сталкивался с этой проблемой с ggplot2, plotly и condformat (с другими данными).

Например,

condformat(fullData[1:500,]) %>%
rule_fill_discrete(title, expression = ifelse(start_var == end_var,  "purple", "orange"))

работает, но

condformat(fullData[1:1000,]) %>%
rule_fill_discrete(title, expression = ifelse(start_var == end_var, "purple", "orange"))

отобразитцвета не оранжевый и фиолетовый, а красный и зеленый.

Заранее извиняюсь, если это тривиальный вопрос, но мой поиск в Google остался безуспешным.Заранее спасибо!

Answer 1

rule_fill_discrete отображает дискретные значения в цвета.Если вы хотите указать, какие цвета сопоставляются с какими значениями, вы должны использовать именованный вектор в качестве аргумента colours.Смотрите этот пример:

library(condformat)
d <- data.frame(title = c("Monday", "Tuesday", "Wednesday"),
                start_var = c(4, 5, 6),
                end_var = c(4, 8, 6))
condformat(d) %>%
  rule_fill_discrete(title,
                     expression = start_var == end_var,
                     colours = c(`TRUE` = "purple", `FALSE` = "orange"))