Creating grouped/stacked bar plot in R gives error: Aesthetics must be either length 1 or the same as the data

Question

I am trying to create a grouped/stacked bar plot in R which looks like this plot:

I have the data:

I run the code:

ggplot(DCE, aes(x=as