Hello R-folks,
I don't get the color of the legend in a lattice-plot right. I select a
palette from RColorBrewer and use it in the barchart plot.
The resulting graph shows the new palette in the graph, but in the legend
rectangles the standard palette is used. Adding a col argument into auto.key
uses the new palette
with the legend text, but not in the rectangle fill.
What am I missing?
TIA
Joachim
---------code ---------
library("lattice")
library("RColorBrewer")
# palette auswählen
mypalette <- brewer.pal(7,"Accent")
pathBarchartFGE <- function(selector,data,dimension = 2,title = NULL,p =
mypalette) {
# umwandeln für lattice Grafiken
dfvar <- as.data.frame.table(data)
names(dfvar) <-
c("Zeitraum","FGG","Pfad","Fracht")
dfsel <- subset(dfvar,dfvar$FGG %in% selector)
barchart(Zeitraum ~ Fracht | FGG, layout = c(1,3), groups = Pfad, stack = TRUE ,
col = p,
data = dfsel, xlab = "Einträge (t/a)",auto.key = list(title =
"Pfade",columns = 2,space = "bottom"),main = title)
}
-------------------------
--
Dr. Joachim Heidemeier
c/o Umweltbundesamt FG II 2.2
Tel.: +49340 2103-2780
eMail: joachim.heidemeier@uba.de
[[alternative HTML version deleted]]
-- sorry, Repost in Text only mode ----
Hello R-folks,
I don't get the color of the legend in a lattice-plot right. I select a
palette from RColorBrewer and use it in the barchart plot.
The resulting graph shows the new palette in the graph, but in the legend
rectangles the standard palette is used. Adding a col argument into auto.key
uses the new palette
with the legend text, but not in the rectangle fill.
What am I missing?
TIA
Joachim
---------code ---------
library("lattice")
library("RColorBrewer")
# palette ausw?hlen
mypalette <- brewer.pal(7,"Accent")
pathBarchartFGE <- function(selector,data,dimension = 2,title = NULL,p =
mypalette) {
# umwandeln f?r lattice Grafiken
dfvar <- as.data.frame.table(data)
names(dfvar) <-
c("Zeitraum","FGG","Pfad","Fracht")
dfsel <- subset(dfvar,dfvar$FGG %in% selector)
barchart(Zeitraum ~ Fracht | FGG, layout = c(1,3), groups = Pfad, stack = TRUE ,
col = p,
data = dfsel, xlab = "Eintr?ge (t/a)",auto.key = list(title =
"Pfade",columns = 2,space = "bottom"),main = title)
}
-------------------------
--
Dr. Joachim Heidemeier
c/o Umweltbundesamt FG II 2.2
Tel.: +49340 2103-2780
eMail: joachim.heidemeier at uba.de