Различные цвета для столбцов гистограммы в ggplot2

Я пытаюсь раскрасить приведенную ниже диаграмму, используя цвета пакета RColorBrewer, в котором для группы CONTROL цвета будут оттенками серого и черного для INITIAL и FINAL соответственно, а для группы IRRADIATED цвета будут светло-красными и темнее. красный для НАЧАЛЬНОГО и КОНЕЧНОГО соответственно, однако код вводит только серый и черный цвета.

library(RColorBrewer)
library(ggplot2)

dados4$VARIAVEIS = as.factor(dados4$VARIAVEIS)
dados4$PERIODO = as.factor(dados4$PERIODO)
dados4$GRUPOS  = as.factor(dados4$GRUPOS)


errors <- dados4 %>%
  group_by(VARIAVEIS,PERIODO,GRUPOS) %>%
  summarise(mean = mean(Resposta), 
            sd = sd(Resposta),
            sem = sd(Resposta)/sqrt(length(Resposta)))

gap3 <- aggregate(Resposta ~ VARIAVEIS + PERIODO + GRUPOS, data=dados4, FUN=mean)
gap31 <- gap3 %>% left_join(errors)

x11()
graf2=ggplot(gap31, aes(x = VARIAVEIS, y = Resposta, fill = factor(PERIODO))) +
  geom_col(position = "dodge") + 
  geom_errorbar(aes(ymin=mean-1.96*sd,ymax=mean+1.96*sd),position = position_dodge(0.9))+
  facet_grid(~ GRUPOS) + theme(strip.text.x=element_text(size = 15)) +
  labs(title = "",
       x = "Variáveis",
       y = expression(paste('Deformação'," ",'(',mu, m,')')),
       fill = "Períodos") +
theme(legend.title = element_text(size = 15),legend.text = element_text(size = 15),
      axis.text.x = element_text(color = "black", hjust=1),
      axis.title = element_text(size = 15),
      axis.text = element_text(size = 12)) 
graf2+scale_fill_manual(values=c("#4D4D4D","black","#FCBBA1","#DE2D26"))