Using cairographics with ggsave()