R - leyenda: asignar varios colores al mismo texto

Question

Tengo una barra de barras R que tiene seis barras divididas en dos partes cada una y seis colores, pero varios colores significan lo mismo. ¿Cómo puedo asignar un texto a varios colores en la leyenda? ¡¡¡Gracias de antemano por tu ayuda!!!

Aquí está el código R para la trama:

height<-matrix(c(64.39173921,73.08486662, 
       64.25261321,90.70965993, 
       64.91170611,38.21450776, 
       35.60826079,26.91513338, 
       35.74738679,9.290340073, 
       35.08829389,61.78549224), 
       nrow=2, ncol=6, byrow=TRUE, 
       dimnames=list(c("Bilateral", "Multilateral"), 
          c("GER \ntotal", "GER \nto LA", "ESP \ntotal", 
           "ESP \nto LA", "UK \ntotal", "UK \nto LA"))) 

tmp <- height 
height <- matrix(0,nrow=12,ncol=6) 
height[cbind(1:12,rep(1:6,each=2))] <- tmp 

colnames(height) <- colnames(tmp) 
rownames(height) <- rep(rownames(tmp),6) 


barplot(height, beside=FALSE, 
     main="Bilateral vs. Multilateral Aid 2004-8 average", 
     ylab="Percentage of aid", ylim=c(0,100), 
     col=c("deepskyblue4","deepskyblue", 
       "deepskyblue4","deepskyblue", 
       "darkolivegreen4","darkolivegreen1", 
       "darkolivegreen4","darkolivegreen1", 
       "firebrick4", "firebrick1", 
       "firebrick4", "firebrick1") 
     ) 

Answer 1

Usted controla la leyenda exactamente:

legend("bottom", 
     legend = c("Bilateral Aid","","","Other","",""), 
     fill = c("deepskyblue4","darkolivegreen4","firebrick4","deepskyblue", 
       "darkolivegreen1","firebrick1"), 
     bg = "white", ncol = 2) 

que necesitará para crear un poco de espacio para la leyenda o empujarlo fuera de la zona de dibujo , pero usted controla qué colores aparecen y con qué texto están asociados.