複数の凡例をプロットする

Question

1つのステートメントで複数の凡例をプロットする方法を教えてください。 例：

start <- seq(20,35, 5) 
end <- seq(39,42, 1) 
y <- seq(1,4,1) 
name <- c('a', 'b', 'c', 'd') 
plot(1, xlim=c(5,50), ylim=c(0,5)) 
rect(start, y, end, 1.1:4.1, col="black") 
legend(end[1],y[1], name[1], xjust=0, yjust=0.5) 
legend(end[2],y[2], name[2], xjust=0, yjust=0.5) 
legend(end[3],y[3], name[3], xjust=0, yjust=0.5) 
legend(end[4],y[4], name[4], xjust=0, yjust=0.5) 

最後の4行は、単一のコマンドにマージする必要があります。任意の助け

Answer 1

事前に ありがとうございますすることができ（双方endとyの長さ1）の範囲1:4インデックスを使用してループ。これはsapplyを使用してRスタイルでforループ、またはそれ以上を使用して達成することができます。

sapply(seq_along(y), function(i) { 
    legend(end[i],y[i], name[i], xjust=0, yjust=0.5) 
})