scales = "free" has no effect on facet_wrap

I want to plot data depending on season and month.
The dataset-size varies, thats why I want to use the parameter scales = "free".

The following code results in:


cp <- coord_polar(start = -((dirres/2)/360) * 2 * pi, dir = 1) 
cp$is_free <- function() TRUE

plot <- ggplot(data = data, aes(x = dir.binned, fill = spd.binned)) +
  geom_bar() + 
  cp + 
  facet_grid(Season ~year, scales = "free_y")  +
  theme(strip.text.x = element_text(size=8, angle=75),
        strip.text.y = element_text(size=12, face="bold"),
        strip.background = element_rect(colour="white", fill="#CCCCFF"))  +
  scale_x_discrete(drop = FALSE, labels = c("N","NE","E", "SE", "S", "SW", "W", "NW"))  +
  theme(text = element_text(size = 22))  +
  theme(panel.spacing = unit(0.5, "cm"))  +
  theme(axis.title.x = element_blank())  + 
  theme(axis.title.y = element_text(vjust = 4))  +
  theme(legend.position = "right")  +
  theme(plot.margin = unit(c(3,3,3,3), "cm"))

How could I make the data from row "Summer" visible?

Can you post some data?