ggplot2 version of panel.xblocks figure