r ggplot2：在条形图中对图例进行分组

I try to visualize two discrete variables in barplot with ggplot2 using I try to visualize two discrete variables in ba