Как избежать повторного использования цветов в штриховом шкафу для достижения разных цветов в каждой группе?

Question

Это тесно связано с вопросом another, который я только что спросил.

Это мои данные:

y <- structure(c(0.5619, 0.4381, 0.7587, 0.2413, 0.8764, 0.1236, 0.9019, 
       0.0981, 0.9481, 0.0519, 0.99, 0.01), 
      .Dim = c(2L, 6L), .Dimnames = list(c("FALSE", "TRUE"), NULL)) 
y 
#   [,1] [,2] [,3] [,4] [,5] [,6] 
# FALSE 0.5619 0.7587 0.8764 0.9019 0.9481 0.99 
# TRUE 0.4381 0.2413 0.1236 0.0981 0.0519 0.01 

Оригинальный сюжет с же цветов в каждой группе (синий и красный):

barplot(y, horiz = TRUE, col = c("blue", "red"), 
     names.arg = c("Overall", paste("Flag", 5:1)), las = 1, 
     cex.names = 0.6, 
     main = "Proportion Dropped Given Each Sample Restriction") 

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

поэтому я создал новый col вектор с одним цветом для каждого сегмента бар:

barplot(y, horiz =TRUE, 
     col = c("blue", "gold", 
       "blue", "springgreen", 
       "blue", "orange", 
       "blue", "red", 
       "blue", "white", 
    names.arg = c("Overall", paste("Flag", 5:1)), las = 1, 
    cex.names = 0.6, 
    main = "Proportion Dropped Given Each Sample Restriction")) 

Однако только первые два цвета в col (синий и золото) используются, и они перерабатываются в 6 раз:

Есть ли способ получить вывод, который я ищу?

Answer 1

Возможно, путем обмана barplot в мышление есть больше категорий. Это чрезвычайно некрасиво, но это, кажется, получить работу:

ymod <- cbind(c(y[,1], 0, 0,0,0,0,0,0,0,0,0), 
       c(0, 0, y[,2],0,0,0,0,0,0,0,0), 
       c(0, 0,0,0, y[,3],0,0,0,0,0,0), 
       c(0, 0,0,0,0,0, y[,4],0,0,0,0), 
       c(0, 0,0,0, 0,0,0,0,y[,5],0,0), 
       c(0, 0,0,0, 0,0,0,0,0,0,y[,6])) 

barplot(ymod, horiz=T, 
     col=c(rbind(rep("blue",6),c("white","red","purple", 
            "orange","springgreen","gold")))) 

Here и here некоторые ссылки, которые я использовал для достижения этого результата.