r составная гистограмма с цветами, представляющими значения

Я собираюсь сделать диаграмму с накоплением цветов, представляющих значения из отдельного столбца данных, а также добавить точную цветовую шкалуиспользуя только базовую графику в R, Есть еще один пост по этому поводу, но он довольно дезорганизован и, в конце концов, не помогает мне ответить на мой вопрос.

# create reproducible data
d <- read.csv(text='Day,Location,Length,Amount
            1,4,3,1.1
            1,3,1,.32
            1,2,3,2.3
            1,1,3,1.1
            2,0,0,0
            3,3,3,1.8
            3,2,1,3.54
            3,1,3,1.1',header=T)

# colors will be based on values in the Amount column
v1 <- d$Amount
# make some colors based on Amount - normalized
z <- v1/max(v1)*1000
colrs <- colorRampPalette(c('lightblue','blue','black'))(1000)[z]

# create a 2d table of the data needed for plotting
tab <- xtabs(Length ~ Location + Day, d)
# create a stacked bar plot
barplot(tab,col=colrs,space=0)

# create a color bar
plotr::color.bar

Это, безусловно, создает столбчатую диаграмму с цветовой кодировкой, но цвета не представляют данные точно.

Для Дня 1 Места 4 и 1 должны быть одинаковыми по цвету. В другом примере первая и последняя записи в столбце «Сумма» идентичны, но цвет верхней части левого столбца не соответствует нижней части правого столбца.

Кроме того, я нашел, как сделать цветную полосу на другом посте, и он используетplotr::color.bar код, ноplotr по-видимому, не пакет, и я не уверен, как продолжить.

Как я могу получить цвета, соответствующие соответствующему разделу и добавить точную полосу цвета?

Ответы на вопрос(3)

Ваш ответ на вопрос