R - Добавление легенды цвета к графику полигонов (с предопределенными цветами)

Question

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

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

plot(alldata[alldata[,3]==forceIds[50],1:2], col="orange", type='l', xlim=range(alldata[,1]),ylim=range(alldata[,2])) 
for(i in 1:length(forceIds)){ 
    polygon(x=alldata[alldata[,3]==forceIds[i],1],y=alldata[alldata[,3]==forceIds[i],2], col=A3$Key2[i]) 
} 

ALLDATA мой набор данные со всеми полигонами, forceIds являются уникальным списком полигонов, A3 представляет собой таблица с моими предустановленными цветами (выходных цветов от более ранней) Тепловой карты.

Я хочу добавить легенду цветовой гаммы к нижней части каждого графика с надписью «Хорошо - Плохо»?

Спасибо.

Answer 1

Возможно, это может помочь вам. Вам нужно будет заменить цветные рампы цветами таблицы A3.

# create a 6 plot layout, with a tall top row and narrow bottom row 
layout(mat=matrix(data = 1:6, nrow = 2, byrow=T), heights=c(3,1)) 

# standard left, bottom, top and right margins 
par(mar=c(5,4,4,2)+0.1) 
for (i in 1:3) { plot(1:3) } 

# reduce the size of the top margin so the plots and colour bars are closer 
par(mar=c(5,4,1,2)+0.1) 

# create a matrix coding the values 1 (Bad) to 10 (Good) 
m = matrix(data = 1:10, ncol = 1) 

# plot 3 colour bars and add custom axis 
for (i in 1:3) { 
    image(x = 1:10, y = 1, z = m, 
      col=colorRampPalette(c('orange', 'red'))(10), 
      axes=F, xlab='', ylab='') 
    axis(3, at=c(1,10), labels = c('Bad', 'Good')) 
}