Красивый график для главных компонент

Ура! У Ричарда Телфорда из Норвегии дошли руки до оживления красивых графиков для главных компонент!

Если коротко. Ставим пакет:

devtools::install_github("richardjtelford/ggbiplot", ref = "experimental")

Рисуем главные компоненты:

library(ggbiplot)
data(wine)
cultivar <- wine.class
m <- prcomp(wine, scale = TRUE)
qplot(PC1, PC2, data = fortify(m), color = cultivar) +
  stat_ellipse(aes(group = cultivar))

И со стрелочками-проекциями исходных переменных

df <- fortify(m, scale = 1, equalize = FALSE)
ggplot(df, aes(x = PC1, PC2)) +
  geom_point(aes(color = cultivar)) +
  geom_axis(data = attr(df, "basis"), aes(label = .name))

А ещё недавно попался под руку пакет для визуализации списков:

library(listviewer)
model <- lm(data = cars, dist ~ speed)
jsonedit(model)

May 18th, 2017 by Борис Демешев

Поделись с миром :)