ggplot: как удалить неиспользуемые уровни факторов из фасета?

Следующий код

d1 = data.frame(y=1:2,group=factor(c('A','B'), levels=c('A','B','C')), fac = 'f1')
d2 = data.frame(y=1:3,group=factor(c('A','B','C'), levels=c('A','B','C')), fac = 'f2')
d = rbind(d1,d2)

library(ggplot2)
ggplot( d, aes(x=group, y=y) ) + geom_point(size=3) + facet_grid( ~ fac)

Результаты на следующем графике. Как я могу удалить неиспользуемый факторный уровень C из фасета 'f1'?