Ich möchte ein gestapeltes Balkendiagramm mit Farben erstellen, die Werte aus einer separaten Datenspalte darstellen, sowie einen genauen Farbbalken hinzufügen. Verwenden Sie nur die Basisgrafiken in R. Es gibt noch einen anderen Beitrag, der aber ziemlich unorganisiert ist und mir am Ende nicht hilft, meine Frage zu beantworten.

# 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

Dies erzeugt mit Sicherheit ein farbcodiertes gestapeltes Balkendiagramm, aber die Farben geben die Daten nicht genau wieder.

Für Tag 1 sollten die Standorte 4 und 1 farblich identisch sein. In einem anderen Beispiel sind der erste und der letzte Eintrag in der Spalte "Betrag" identisch, aber die Farbe oben in der linken Spalte stimmt nicht mit der Farbe unten in der rechten Spalte überein.

Auch habe ich herausgefunden, wie man einen Farbbalken für einen anderen Beitrag erstellt und dabei das @ verwendeplotr::color.bar code, aberplotr ist anscheinend kein Paket und ich bin mir nicht sicher, wie ich weitermachen soll.

Wie kann ich die Farben so einstellen, dass sie mit dem entsprechenden Abschnitt übereinstimmen, und eine genaue Farbleiste hinzufügen?