How to extract bar labels and their size from a given ggplot object?

Question

This is a follow-up to a question (and answer) about dynamic word wrapping of x axis labels.

Background

My general problem is that I need to generate plots in an