为什么facet显示错误的颜色..？

Question

显然，它看起来像一个非常简单的问题。可以无误地绘制以下2D构面1。然而，小平面图混合了颜色和形状。例如，在此示例中，右侧列通常应仅具有蓝色标记，而中间列应显示绿色标记。

 data1
 num     delay claim supply project
 1 -236.347551  3000    DIF   site1
 2   65.132011  5000    Hoc   site2
 3   61.401260  5000    Hoc   site2
 ..
 base04 <- ggplot(data1, aes(num, delay, size=claim, color=supply, shape=project))
 base04 + geom_point() + facet_grid( project ~ supply )

facet plot

你身边的任何想法......