Изменение цвета в сложенном столбце

Question

Мне нужны три цвета для этого гистограммы, чтобы быть определенными цветами.RET должен быть "chartreuse3", FiR / FG должен быть aquamarine4, RHA должен быть "goldenrod1".

Я нашел некоторые решения этой проблемы, но когда я пытаюсь реализовать, это не работает.

fall3 <- structure(list(Community = c("First-Year", "First-Year", "First-Year", 
"First-Year", "Upper-Class", "Upper-Class", "First-Year", "First-Year", 
"Upper-Class", "Upper-Class"), Division = c("FiR/FG", "RHA", 
"RHA", "RET", "FiR/FG", "RET", "RET", "RHA", "RHA", 
"FiR/FG"), Count = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1)), row.names = c(NA, 
-10L), class = c("tbl_df", "tbl", "data.frame"))



gg_color_hue <- function(n) {
  hues = seq(15, 375, length=n+1)
  hcl(h=hues, l=65, c=100)[1:n]
}

#make custom palette

mycols <- gg_color_hue(length(unique(fall3$Division)))
names(mycols) <- unique(fall3$Division)
mycols["RET"] <- 'sienna'
mycols["FiR/FG"] <- 'darkgoldenrod1'
mycols["RHA"] <- 'darkolivegreen3'


stick <- ggplot(fall3, aes(Community))+
  geom_bar(aes(fill = Division))+
 scale_color_manual(values=mycols)

Я надеюсь иметь гистограмму с соответствующими цветами.Кроме того, что-то говорит мне, что я делаю это неправильно.Потому что моя диаграмма показывает, что в первом году и в старших классах одинаковое количество событий, а это не так.

Answer 1

mycols<- c("RET" = "sienna", "FiR/FG" = "darkgoldenrod1", "RHA" = "darkolivegreen3")
ggplot(fall3, aes(Community, fill = Division))+
  geom_bar() +
  scale_fill_manual(values=mycols)