Я пытаюсь нарисовать 3D-график, используя rgl с легендой цветов, указывающей, какой цвет относится к какому классу (называемый 'cut.rank'):

plot3d(
data.focus$normalized.price_shipping,
data.focus$seller_feedback_score_rank,
data.focus$seller_positive_feedback_percent_rank, 
col=as.factor(data.focus$cut.rank), 
size=1, 
type='s',
xlab = 'Normalized Price',
ylab = 'Seller Feedbacl Score Rank',
zlab = 'Seller Positive Feedback Percent Rank',
main = 'Rank By Price, Feedback score and Positive Feedback Score',
sub = 'Search Rank has 3 colored levels',
colkey = list(length = 0.5, width = 0.5, cex.clab = 0.75))
) 

Но я не могу понять, как легенда появляется в сюжете. (См. Прикрепленный сюжет) Есть идеи?