png - 需要帮助来使用 geom_rect 和 facet_wrap 创建时间表

Question

我没有设法创建以下内容（见附件所需的结果）......

我编码了这个：

png("StundenplanPlot.png", width = 800, height = 400)
ggplot(data = Stundenplan, aes(Raum, Periode)) +     #Achsen an den einzelnen facets (x,y)
  geom_rect(data=Stundenplan, aes(NULL,NULL,xmin=min(Stundenplan$Raum),xmax=max(Stundenplan$Raum),
            ymin=min(Stundenplan$Periode),ymax=max(Stundenplan$Periode), colour = Stundenplan$LehrerIn[Stundenplan$LehrerIn == "Mьller"]="green",
                                                                                  Stundenplan$LehrerIn[Stundenplan$LehrerIn == "Garcia"]="red",
                                                                                  Stundenplan$LehrerIn[Stundenplan$LehrerIn == "Marchand"]="yellow",
                                                                                  Stundenplan$LehrerIn[Stundenplan$LehrerIn == "Petersen"]="blue",
                                                                                  Stundenplan$LehrerIn[Stundenplan$LehrerIn == "Smith"]="pink",
  labs(title = "Stundenplan der Projektwoche",      #Bezeichnung der Achsen mit labs(x=...)
       y = "Stunde", x = "Raum") +
    legend(3,0.9,legend = C(seq(Stundenplan$LehrerIn[1],Stundenplan$LehrerIn[nrows(Stundenplan)])) +
  facet_wrap(~ Stundenplan$Tag)