无法在R中的Hive Plot中添加颜色条

Question

我正在使用蜂巢图并且想要知道如何将一个垂直颜色条放置在图的左上象限中（不是一个偏离图的一侧）。问题是，每当我运行此代码时，我都没有看到任何弹出的内容。我相信这可能是因为我一直在尝试的方法都是针对正常情节，而不是蜂巢图。

colorplot.l <- seq(1,100,1)
require("grid")
require("HiveR")
test2 <- ranHiveData(nx = 2)
plotHive(test2, ch = 5, axLabs = c("axis 1", "axis 2"), rot = c(-90, 90),
axLab.pos = c(20, 20), axLab.gpar = gpar(col = "pink", fontsize = 14, lwd = 2),
arrow = c("radius units", 0, 20, 60, 25, 40))
colorbar.plot(0,100,colorplot.l, horizontal=FALSE)

我做错了什么或是否有其他专门针对蜂巢情节的方法？我发现的大多数软件包都不能用于此。

感谢任何帮助或见解。

Answer 1

使用grid包创建一个视口，可以为您的蜂巢图添加颜色条：

library(grid)

# A viewport on the upper left corner of the plot
legendViewport <- viewport(0.05, y = 0.85, height=0.2, width=0.05)
pushViewport(legendViewport)

mypalette <- colorRampPalette(c("red","blue","green"))

# Render the color bar
grid.raster(mypalette(20), 
   width=unit(1,"npc"), height=unit(1,"npc"), int=FALSE)

希望它可以帮到你。