Как вручную установить цвет заливки geom_bar в ggplot

Question

Я пытаюсь создать несколько графиков с помощью ggplot. Графики представляют собой серию гистограмм, которые вместе описывают также линию EXAMPLE (Кстати, да, я понимаю, что цветовая палитра уродливая, ее цветной слепой дружелюбный, что важно для моей аудитории)

Моя проблема в том, что мне нужно чтобы сделать несколько из этих графиков, и я хочу, чтобы цвета оставались согласованными во всех них. Поскольку переменная «Тип» появляется в разных порядках по нескольким наборам данных, которые я собираюсь использовать, мне нужно вручную установить цвет для каждого типа. Я думал, что этот вопрос: How to manually fill colors in a ggplot2 histogram будет иметь ответ, но когда я попробую это, он изменит имена в легенде на шестнадцатеричное определение цвета, но сами цвета вернутся к палитре по умолчанию ggplot.

Вот код, который я до сих пор:

cbbPalette <- c("#000000", "#E69F00", "#56B4E9", "#009E73", "#F0E442", "#0072B2", "#D55E00", "#CC79A7") 

ggplot()+ 
    scale_fill_manual(values=cbbPalette)+ 
    geom_bar(data=subset(eten, Type=="Waste Wood"), aes(x=Tprod, y=acost, fill=cbbPalette[1], width=MGGEY+25), stat="identity")+ 
    geom_bar(data=subset(eten, Type=="Agricultural Residue"), aes(x=Tprod, y=acost, fill=cbbPalette[2], width=MGGEY+25), stat="identity")+ 
    geom_bar(data=subset(eten, Type=="Forest Residue"), aes(x=Tprod, y=acost, fill=cbbPalette[3], width=MGGEY+25), stat="identity")+ 
    geom_bar(data=subset(eten, Type=="Herbaceous Energy Crop"), aes(x=Tprod, y=acost, fill=cbbPalette[4], width=MGGEY+25), stat="identity")+ 
    geom_bar(data=subset(eten, Type=="MSW"), aes(x=Tprod, y=acost, fill=cbbPalette[5], width=MGGEY+25), stat="identity")+ 
    scale_y_continuous("Average Cost", labels = dollar, expand=c(0,0))+ 
    scale_x_continuous("Million Gallons of Gasoline Equivalent", expand=c(0,0))+ 
    theme(legend.position="bottom", panel.background=element_rect(colour = NA, fill = "white"), axis.line=element_line(), panel.grid.major.y=element_line(colour="black"), panel.grid.minor=element_blank()) 

Мой уровень R экспертизы является довольно низким, так что я может быть что-то просто не хватает, но я не могу заставить его работать самостоятельно. Заранее спасибо за помощь.

Обновление: Я непреднамеренно вставил неверную версию своего кода, команды «заполнить» вернулись к моему лучшему предположению. Примерный набор данных - here.

Answer 1

Я предполагаю, что вы просмотрели пример слепого цвета ggplot here? Без ваших данных я могу только предположить, что ваши вызовы geom_bar создают неоднозначность относительно того, какой слой применить изменения заполнения, поскольку ваш первоначальный вызов ggplot не имеет аргумента aes. Попробуйте переместить все данные в один dataframe и ссылаться на него в первоначальный вызов к ggplot, например,

ggplot(df, aes(x=cond, y=yval)) + 
    geom_bar() + 
    scale_fill_manual(values=cbbPalette) 

, где DF является dataframe, содержащий данные и ОПЗ является отображение между вашими переменными. Это дает понять ggplot, что вы хотите, чтобы цвета заливки geom_bar соответствовали данным в df. Есть способы сделать эту работу с вашим текущим кодом, но они нетрадиционные для создания стандартных графиков.