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
по-видимому, не пакет, и я не уверен, как продолжить.
Как я могу получить цвета, соответствующие соответствующему разделу и добавить точную полосу цвета?