R barplot传奇在中心

Question

我有一个条形图，看起来像：

我想在粗体矩形的某处添加一个图例，我已经尝试过par（xpd = TRUE）并设置第四个条形图的边距但是由于某些原因我无法让它工作......

所以，如果您有任何想法，请告诉我！

Answer 1

不确定为什么xpd不适合你，但下面的代码应该会给你一些线索：

par(mfrow=c(2,2), xpd=TRUE)
barplot(tN, col = 2:3)
barplot(tN, col = 2:3)
barplot(tN, col = 2:3)
barplot(tN, col = 2:3)
legend(-4.5, 56,  c("A", "B"), col=2:3,lwd=1)

为了了解图例的坐标，我使用了locator()函数。

Answer 2

您可以在此处使用layout，具有不同的高度

layout(rbind(c(1, 2),
             c(3, 3),
             c(4, 5)),
       heights=c(3, 1.5, 3),
       respect=FALSE)
tN <- table(Ni <- stats::rpois(100, lambda = 5))
barplot(tN, col = 2:3)
barplot(tN, col = 2:3)
plot.new()
#box()
text(0.5,0.5,'legend in center',cex=3)
barplot(tN, col = 2:3)
barplot(tN, col = 2:3)

Answer 3

尝试locator {graphics}

?locator

legend(locator(1), border=FALSE, fill=FALSE, "try the position") 

在你的情节（）之后，你可以点击你希望的位置上的情节窗口