我有一个功能图，可以向现有图形添加多条线。
draw.line<-function(args,...,add.line=F)使用首行创建图
draw.line<-function(args,...,add.line=T)在现有图上添加新行
args每次执行可能会有所不同。
每行我还需要一个图例。如果我对图例的位置进行编码，则它们会相互叠加。到目前为止，我的解决方案是打电话给
leg.pos<-sample(c("bottomright", "bottom", "bottomleft", "left", "topleft", "top", "topright", "right", "center"), 1)
并在legend(leg.pos, args, ....)
问题在于，有时图例仍然会被随机绘制在彼此之间。
出于复杂的原因，我无法数值预先指定或指定图例的x和y位置。
我还缺少其他解决方案吗？它会在图例位置上增加某种抖动，而在情节中会增加通用性和抽象性吗？