Two groups asked to rank A,B,C,D according to their preference. I want to create barplot which compares rankings A,B,C,D in x axis by group

Question

My data looks like this,

id<-c(1,2,3,4,5,6,7,8)
Rank1 <-c("A", "A", "C", "C","C", "D" ,"D&q