基本R水平图例 - 有多行

Question

我希望使用基数R（不是ggplot）创建一个包含多行的水平图例。 在legend（）中有多个列但没有多行的选项。有没有办法做到这一点？下面的例子，水平图例对于图表来说太宽了。

(defrule makemove
   ?m <- (golfer (position ?x))
   ?go <- (golfcourse (obstacles ?$y)
=> 
   (assert (golfer (Current_club ?c)))

Answer 1

您可以使用ncol =参数代替horiz来获取所需的布局。请注意horiz会覆盖ncol，因此请勿同时使用它们。虽然，这没有直接指定行数，但它间接地这样做，因为行数由列数和因子确定。

MyCol <- topo.colors(20)
barplot(rep(1,20), yaxt="n", col=MyCol)
x <- 1:20
MyLab <- paste("Zone",x)
legend("bottom",MyLab,fill=MyCol,ncol=5)

如果要排列沿行排序的图例项目，可以按照所需顺序对其进行索引。 E.g。

MyOrder = as.vector(matrix(1:20, nrow = 4, ncol = 5, byrow = T))
legend("bottom",MyLab[MyOrder], fill=MyCol[MyOrder] ,ncol=5)

为了概括不同数量的行和因子，我们可以做类似

的事情

Nfact = 21
Nrows = 5
Ncols = ceiling(Nfact / Nrows)
MyOrder = as.vector(matrix(1:(Nrows*Ncols), nrow=Nrows, ncol=Ncols, byrow=T))

MyCol <- topo.colors(Nfact)
x <- 1:Nfact
MyLab <- paste("Zone",x)

barplot(rep(1,Nfact), yaxt="n", col=MyCol)
legend("bottom", MyLab[MyOrder], fill = MyCol[MyOrder], ncol = Ncols, border=NA)

最后一个额外的技巧：在上一个图中，我们设置border = NA。这是为了防止在空图例项目（不完整列底部的项目）周围绘制边框。如果你想要边框，那么我们也应该在我们不想绘制的位置创建一个NA的边框颜色矢量。

MyBorders = rep("black", Nrows*Ncols)
MyBorders[MyOrder > Nfact] <- NA
legend("bottom", MyLab[MyOrder], fill = MyCol[MyOrder], ncol = Ncols, border=MyBorders)