强制剥离标签宽度足以在ggplot中包含条带标签

Question

任何想法（最好是优雅但蛮力，除了简单地使绘图区域更宽，也欢迎），使条带标签足够宽，以包含长标签，而不包含包装标签例？我没有在element_text或facet_wrap中看到任何选项来执行此操作...

library(ggplot2)
dd <- expand.grid(x=1:3,
      f=c("lab","longer label","very very very long label"))
ggplot(dd,aes(x,x))+geom_point()+facet_wrap(~f)
ggsave("strips.png",height=3,width=3)