R legend header. The functions below can be used : I don't understand ...