r - gWidgets的ggplot2渲染问题

Question

ggplot2 和 gWidgets 似乎有些奇怪。请参阅下面的示例和生成的图像。

有没有办法让分面标签在 gWidgets 中正确呈现？

library(gWidgets)
library(ggplot2)

win <- gwindow("Graphics example")
ggraphics(cont = win)

p <- ggplot(mtcars, aes(mpg, wt)) + 
    geom_point() +
    facet_grid(. ~ cyl)
p