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 行を 1 つのコマンドにマージする必要があります。助けてくれてありがとう

4

1 に答える 1

0

範囲内のインデックスを使用してループできます(1 からと1:4の両方の長さまで)。これは、ループを使用して実現できます。R スタイルでは次のように使用します。endyforsapply

sapply(seq_along(y), function(i) {
   legend(end[i],y[i], name[i], xjust=0, yjust=0.5)
 })
于 2012-05-02T08:28:23.440 に答える