Estoy buscando hacer un gráfico de barras apiladas con colores que representen valores de una columna de datos separada, así como agregar una barra de colores precisausando solo los gráficos base en R. Hay otra publicación sobre esto, pero está bastante desorganizada y al final no me ayuda a responder mi pregunta.

# 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

Esto con seguridad produce un gráfico de barras apiladas codificadas por colores, pero los colores no representan los datos con precisión.

Para el día 1, las ubicaciones 4 y 1 deben ser idénticas en color. Otro ejemplo, la primera y la última entrada en la columna Cantidad son idénticas, pero el color de la parte superior de la columna izquierda no coincide con la parte inferior de la columna derecha.

Además, descubrí cómo hacer una barra de color en una publicación diferente y utiliza elplotr::color.bar código, peroplotr aparentemente no es un paquete y no estoy seguro de cómo continuar.

¿Cómo puedo hacer que los colores coincidan con la sección adecuada y agregar una barra de colores precisa?