ggplot2
( ggplot(dl, aes(x = t, y = y)) + geom_tile(aes(fill = sex)) + facet_grid(action + sex ~ .) + geom_line(aes(color = action)) + geom_point(aes(color = action)) + scale_color_manual(values = c("black", "green")) )