在R中为颜色键添加标记

Question

跟进此问题：pseudocolors in R 我找到了一种用彩色键创建伪彩色图像的方法。但是，我坚持在这个键上添加一些文本（例如，“低”，“中”，“高”以及中间两端的勾号）。

故事的简短版本（作为MWE）将是：

library(RColorBrewer)

pal <- colorRampPalette(brewer.pal(9, "YlOrBr"), space = 'rgb')(256)

layout(matrix(c(1,2), nrow = 1), widths = c(4,1), heights = c(4,4))
layout.show(2)

par(mar = c(0,0,0,0))
image(t(matrix(1:30, ncol = 1, nrow = 30)), 
     col = pal, xaxt = "n", yaxt = "n", frame.plot = FALSE)

par(mar = c(0,0.1,0,0))
image(t(matrix(1:30, ncol = 1, nrow = 30)), 
     col = pal, xaxt = "n", yaxt = "n", frame.plot = FALSE)

因此，目标是在图像的左侧部分使用文本结束标记。

提前感谢您的帮助！

Answer 1

我没有看到布局的重点，但认为你可以增加第一个图像通话的保证金而省去第二个图像通话？你想要"low", "mid", "high" along with tickmarks at the ends an[d] in the middle让我感到困惑。也许这将进一步讨论：

layout(matrix(c(1,2), nrow = 1), widths = c(4,1), heights = c(4,4))
layout.show(2)

par(mar = c(0,0,0,2))
image(t(matrix(1:30, ncol = 1, nrow = 30)), 
     col = pal, xaxt = "n", yaxt = "n", frame.plot = FALSE)
axis(4, at=(30:1)/30, labels=1:30, cex.lab=0.6)