r - 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 尺度上的间隙来反射(reflect)这一点。另一个问题是轴上的文本和刻度线。我希望刻度只是观察年份而不是 Month.Year，因为月份已经在填充中编码。我尝试过scale_x_discrete，但尝试为连续轴提供离散值会出现空白图和错误。我已经满足了当天计算机配额的要求，如果能在这方面获得一点帮助，那就太好了。

Answer 1

这会产生巨大的差距，因为每年都有自己的差距，但您可以通过仅将特定年份作为 level 参数传递给 Factor() 调用来调整这一点。

df$Yr <- factor(df$Yr, levels=1999:2010)

ggplot(df,aes(x=Yr,y=Temp,fill=Month))+
  geom_boxplot(position=position_dodge(1))+
  ylab("Daily Maximum Temperature") +
  scale_x_discrete("Year", drop=FALSE)