Uniform Manifold Approximation and Projection (UMAP)

R'de Boyutsal Azaltma

Matt Pickard

Owner, Pickard Predictives, LLC

PCA, t-SNE ve UMAP

PCA, t-SNE ve UMAP karşılaştırması

PCA, t-SNE ve UMAP

PCA, t-SNE ve UMAP karşılaştırması

PCA, t-SNE ve UMAP

PCA, t-SNE ve UMAP karşılaştırması

PCA, t-SNE ve UMAP

PCA, t-SNE ve UMAP karşılaştırması

PCA, t-SNE ve UMAP

PCA, t-SNE ve UMAP karşılaştırması

UMAP, ayarlanabilir benzer hiperparametrelere sahiptir.

UMAP grafiği

library(embed)


set.seed(1234)
umap_df <- recipe(Attrition ~ ., data = attrition_df) %>% 
  step_normalize(all_predictors()) %>% 
  step_umap(all_predictors(), num_comp = 2) %>% 
  prep() %>% 
  juice()


umap_df %>%  
  ggplot(aes(x = UMAP1, y = UMAP2, color = Attrition)) +
  geom_point(alpha = 0.7)

UMAP: çalışan ayrılma durumu

Çalışan ayrılma durumunun UMAP grafiği

tidymodels ile UMAP

Tarif oluşturma

umap_recipe <-  recipe(Attrition ~ ., data = train) %>% 
  step_normalize(all_predictors()) %>% 
  step_umap(all_predictors(), num_comp = 4)

Model tanımı oluşturma

umap_lr_model <- linear_reg()

tidymodels ile UMAP

İş akışı oluşturma

umap_lr_workflow <-  workflow() %>% 
  add_recipe(umap_recipe) %>% 
  add_model(umap_lr_model)

İş akışını eğitme

umap_lr_fit <- umap_lr_workflow %>% 
  fit(data = train)

tidymodels ile UMAP

Modeli değerlendirme

predict_umap_df <- test %>% 
  bind_cols(predict = predict(umap_lr_fit, test))

rmse(predict_umap_df, Attrition, .pred_class)

Haydi pratik yapalım!

R'de Boyutsal Azaltma