具有连续比例的boxplot的ggplot多因子级分组

Question

我正在尝试创建以下数据的箱线图

Temp<-rnorm(90,mean=100,sd=10)
Yr<-sample(c("1999","2000","2005","2009","2010"),size=90,replace=TRUE)
Month<-sample(c("June","July","August"),size=90,replace=TRUE)
Month
df<-data.frame(Temp,Month,Yr)

我想要的视觉效果及其相应的代码如下：

ggplot(df,aes(x=interaction(Month,Yr),y=Temp,fill=Month))+
    geom_boxplot()+
    xlab("Year")+
    ylab("Daily Maximum Temperature")

但是，您会注意到数据中缺少了几年，而我试图让情节反映出x尺度上的差距。另一个问题是轴上的文本和刻度线。我希望这些刻度只是观察年而不是月份。因为月份已经在填充中编码了。我尝试过scale_x_discrete，但尝试为连续轴提供离散值时会发出空白图和错误。我在当天的计算机配额上遇到了咒骂，在这方面获得一些帮助真的很棒。