3

我有一个条形图，如下所示： 在此处输入图像描述

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

因此，如果您有任何想法，请告诉我！

4

3 回答 3

2

不知道为什么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()函数。

于 2013-03-19T21:02:36.053 回答
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)
于 2013-03-19T21:30:59.447 回答
1

尝试locator {graphics}

?locator

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

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

于 2013-03-19T21:05:52.890 回答