获取ggplot图的坐标

Question

有没有办法获得x y R数字中每个方面的ggplot和facet_wrap坐标？

使用ggplot's facet_wrap example

p <- qplot(displ, hwy, data = mpg)
p + facet_wrap(~ cyl)

如何获取x每个方面的y和p坐标，以便为每个方面添加文字或插图？