Как наложить подобранную линию на фиктивный переменный график рассеяния?

Question

Я пытаюсь разместить строку для каждой фиктивной переменной, но не уверен, как это сделать?Кто-нибудь может указать мне правильное направление?

# label points by ’type’ on scatterplot
         > plot(education, prestige, pch=as.numeric(type), col=as.numeric(type))
         # add a legend to the above plot
         > legend(8,95, levels(type), pch=1:3, col=1:3)