R图传奇行为中的换行符

Question

我在R中的传奇中有一个换行符,我的问题是图形看起来不像预期的那样.我的最小例子如下:

plot(1)
legendLabel<-c("t\nu ","tu","wh","trr\nni")
legend("top",legend=legendLabel,horiz=TRUE,fill=c("red","blue","gray","black"))

我希望图例的上边距和下边距相等,但事实并非如此.

正如您在附图中看到的那样,下边距小于上边.

有没有人知道如何解决它或任何人都可以告诉我问题是什么？

谢谢.

Answer 1

感谢@'Marc in the box'，我找到了一个很好的工作解决方案。按照他的指示禁用该框bty="n"，然后

  ld<-legend("top",legend=legendLabel, cex=0.65, fill=colorNames, horiz=TRUE,bty="n")
  height<-(ld$rect$top-ld$text$y[1])*2
  xs <- c(ld$rect$left, ld$rect$left, ld$rect$left+ld$rect$w, ld$rect$left+ld$rect$w)
  ys <- c(ld$rect$top, ld$rect$top-height, ld$rect$top-height, ld$rect$top)
  polygon(x = xs , y = ys)

所以我首先计算了顶角和数据点之间的距离，然后用这些信息绘制一个多边形。据我所见，作品相当一般。

谢谢。