ggplot2位置='道奇'产生的酒吧太宽

I'm interested in producing a histogram with position='dodge' and fill=some factor (i.e. side-by-side bars for different subgroups within each bar/group), but ggplot2 gives me something like I'm interested in producing a histogram with po