Добавить легенду к сюжету с помощью R

Question

Я создаю 4 строки в одном сюжете, используя R. Вот код

# Define 2 vectors 
cars <- c(123.07, 110.51, 96.14, 98.71, 101.3) 
trucks <- c(110.31, 89.91, 89.81, 89.31, 93.4, 95.81) 
cars1 <- c(123.227, 110.221, 93.14, 98.22, 122.3) 
trucks1 <- c(120.31, 89.91, 89.81, 89.31, 93.4, 95.81) 
# Graph cars using a y axis that ranges from 0 to 12 
plot(cars, type="o", col="blue", ylim=c(80,130)) 

# Graph trucks with red dashed line and square points 
lines(trucks, type="o", pch=22, lty=2, col="red") 
lines(cars1, type="o", col="yellow", ylim=c(80,130)) 

# Graph trucks with red dashed line and square points 
lines(trucks1, type="o", pch=22, lty=2, col="green") 
# Create a title with a red, bold/italic font 
title(main="Autos", col.main="red", font.main=4) 

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

Спасибо

Answer 1

legend("topleft", c("cars", "trucks", "cars1", "trucks1"), 
text.col = "blue", "red", "yellow", "green") 

Используйте? Команду Легенда, чтобы увидеть варианты, такие другие места на графике, кроме «или» нижнего правого размера текста, независимо от того, чтобы иметь рамку вокруг легенды и т.д.

Answer 2

Например

legend(
    "topright", 
    lty=c(1,2,1,2), 
    col=c("blue", "red", "yellow", "green"), 
    legend = c("cars", "trucks", "cars1", "trucks1") 
) 

См ?legend.