прямоугольная гистограмма, заполненная цветом и расстоянием с использованием R (база R или ggplot2 или другой пакет)

Question

У меня следующий тип данных, и я хочу создать гистограмму.

Mark <- 1:10
Post <- c(0, 1, 4, 5, 6,
          8, 10,  11, 12,  13)
color <- c(1,0.5,1, 1, 0.6, 0.7, 1,1,1) # 9 intervals between ten points 

Здесь десять знаков должны находиться в столбце по оси X. Вместо столбика высота постоянна, однако цвет обозначен переменной цвета. Например, интервал между 1-2 соответствует 1 цветовому значению, в то время как 2-3 соответствует цветовому значению 0.5. Таким образом, для 10 Mark существует 9 значений цвета.

Как можно получить такой график?

редактирует:

Было бы идеально, если бы я мог добавить легенду о цветовой шкале - интенсивность цвета против числового значения

Answer 1

Не идеально, но вы должны начать:

greens <- colorRampPalette(c("white","darkgreen"))
barplot(as.matrix(diff(Post)), horiz=T, col=greens(10)[10*color], axes=F, xlab="Mark")
axis(1, labels=Mark, at=Post)
axis(3, labels=Post, at=Post)