R легенды с разными названиями

Question

В R-графике (не в ggplot2) как разместить несколько легенд с разными названиями?

plot(sin(1:100), type="l", col="red") 
lines(cos(1:100), col="blue", lty=2) 
legend("bottom", legend=c("Sin"), fill=c("red"), title="Sin Plot") 
legend("bottom", legend=c("Cos"), fill=c("blue"), title="Cos Plot") 

Вторая легенда «Cos» покрывает первый! Как поставить вторую легенду ниже в заголовке?

Я не ищу только многословные легенды, но несколько легенд с РАЗЛИЧНЫМИ ТИТАМИ. Например, в этом рисунке:

http://i2.wp.com/www.milanor.net/blog/wp-content/uploads/2015/11/final-1.png?zoom=1.5&w=456

Answer 1

Проверьте, если это то, что вы хотите:

par(xpd=TRUE, mar=c(4.5, 4.5, 1, 6)) 
plot(sin(1:100), type="l", col="red") 
lines(cos(1:100), col="blue", lty=2) 
legend(110, 0, legend=c("Sin"), fill=c("red"), title="Sin Plot") 
legend(110, -0.5, legend=c("Cos"), fill=c("blue"), title="Cos Plot") 

Вы должны установить par(xpd=TRUE), чтобы отключить вырезку, и рисовать вне область печати. Затем отрегулируйте поля соответственно и установите легенду вручную там, где вы хотите.