Добавление двух легенд к изображению

Question

Я новый пользователь R, и мне нужна помощь в настройке дополнительной легенды для карты.

Описание: я построил карту, используя функцию image.plot в библиотеке полей с осями x и y, указывающими координаты, и цветовой шкалой с легендой и обозначением ориентации, как описано в строке кода ниже:

image.plot (х, у, г, Col= полутоновое,legend.mar=8,5,xlab="",ylab="", главное ="Lambert2étendu")

Проблема:

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

Спасибо за помощь

Answer 1

Использование legend для вторичной легенды. Увеличить дно marджин и добавить легенду с отрицательным insetотойти от сюжета:

library(fields)
x<- 1:10
y<- 1:15
z<- outer( x,y,"+") 

# plot with extra margin at bottom (7)
par(mar=c(7,4,4,2)+0.1)
image.plot(x,y,z,col=gray.colors(10), xlab='', ylab='') 

# create points
xp = sample(1:10,size=5)
yp = sample(1:10,size=5)
points(xp,yp,pch=21,bg=1:2,cex=1:2)

# add legend (might have to change inset if you resize the plot)
legend('bottom', horiz=T, legend=paste('type', 1:2), pt.cex=1:2, pch=21, pt.bg=1:2, xpd=NA, inset=c(0,-1..))