Почему фасет показывает неправильные цвета?

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 )

фацетный сюжет

Любые идеи с вашей стороны..