Яркие выбросы в диаграмме рассеяния

Question

Я нарисовал эту графику, чтобы идентифицировать графически точки с высоким коэффициентом усиления в моей линейной модели.

Учитывая переменную «NOMBRES» набора данных, который использует моя модель, я попытался построить все точки моей графики, но становится неразборчивым. Вот код, я побежал:

> plot(hatvalues(tmodel),residuals(tmodel)) 
> text(hatvalues(tmodel),residuals(tmodel),labels=DSET$NOMBRES) 

Так что я хотел бы построить только точки с использованием кредитного плеча (значение шлема) выше 0,05, используя ярлык «DSET $ NOMBRES».

Answer 1

Определение точек высокого левереджа в соответствии с вашим определением:

hlev <- which(hatvalues(tmodel)>0.05) 

Добавить числовые метки на графике:

text(hatvalues(tmodel)[hlev], residuals(tmodel)[hlev], 
    labels=DSET$NOMBRES[hlev])