add to examples.R ugly facet