faceted ggplot - bad plot made