Estoy tratando de dibujar un diagrama de caja y bigotes en R. Mi código está abajo. En este momento, debido a que solo tengo datos durante dos meses en uno de los dos sitios, las barras son más anchas para ese sitio (porque se ha eliminado el tercer nivel del mes).

En su lugar, me gustaría el mismo patrón de cajas para el sitioA como hay para el sitioB (es decir, con espacio para un cuadro vacío en el lado derecho). Puedo hacer esto fácilmentedrop=TRUE cuando solo tengo un factor pero no parece poder hacerlo con el factor "relleno".

Month=rep(c(rep(c("Jan","Feb"),2),"Mar"),10)
Site=rep(c(rep(c("A","B"),each=2),"B"),10)
factor(Month)
factor(Site)
set.seed(1114)
Height=rnorm(50)
Data=data.frame(Month,Site,Height)
plot = ggplot(Data, aes(Site, Height)) +
       geom_boxplot(aes(fill=Month, drop=TRUE), na.rm=FALSE)
plot