pairs( wasp[ , c("HW","TW","G1Wa","DA") ], panel =
   function( x, y, ... ) { text( x, y, as.character( wasp$caste ) ) },
   labels = c("head","thorax","gonadium","discriminant\nanalysis" ) )