Question

如何使用单个语句设置多个图例？例如：

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)

最后四行应该合并为一个命令。在此先感谢您的任何帮助

Answer 1

您可以使用1:4范围内的索引进行循环（1到end和y的长度）。这可以使用for循环实现，或者使用sapply

以R风格实现

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

绘制多个传说

1 个答案: