在ggplot2包中使用facet_wrap时，如何使每个单独的图形更大？

Question

这是生成我的图表的代码：

county_br_saleyear_graph <- ggplot(county_br_saleyear_df) + 
    geom_bar(aes(x = br, y = avg_house_price_by_year, color = county), stat = "identity") + 
    facet_wrap(county~sale_year, shrink = FALSE)
county_br_saleyear_graph

结果图：

我怎样才能使这更具代表性？