У меня на графике 29 кривых (для разных стран я выбрал случайным образом), нарисованных функцией "сюжет". Я не могу использовать ggplot, так как это кривые функциональных данных, а метод использует «график». Я только хочу дать легенду для первых 5 кривых. Мне удалось найти названия 5 лучших кривых и поместить их в легенду, но цвета графика и легенды не совпадают. Что мне не хватает?
plot(fdobj)
title("Functional Curves of Countries")
legend("topleft", y.intersp=0.3,pt.cex=3,pch=20,legend=a, col=seq_along(1:5))
Здесь fdobj - это функциональный объект, который я рисую. Сюжет: график с неправильной легендой
легенда и цвета на графике не совпадают. Катар черный, но Испания должна быть не красной, а голубой.