색상 키에 눈금 표시 추가 R

Question

다음 질문에 대한 답변 : pseudocolors in R 색상 키로 의사 색상 이미지를 만드는 방법을 찾았습니다. 그러나이 키에 텍스트를 추가하는 데 어려움이 있습니다 (예 : '낮음', '중간', '높음', 끝에있는 눈금 표시와 함께).

(AN 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)