Modellering med tidymodels i R
David Svancer
Data Scientist
Heatmap med autoplot()
autoplot()type till 'heatmap'
conf_mat(leads_results, truth = purchased, estimate = .pred_class) %>%autoplot(type = 'heatmap')

Mosaikplot med autoplot()
type till 'mosaic'
conf_mat(leads_results,
truth = purchased,
estimate = .pred_class) %>%
autoplot(type = 'mosaic')

Mosaikplot med autoplot()
type till 'mosaic'conf_mat(leads_results,
truth = purchased,
estimate = .pred_class) %>%
autoplot(type = 'mosaic')

Standardtröskel för sannolikhet vid binär klassificering är 0,5
leads_results
.pred_yes är större än eller lika med 0,5 sätts .pred_class till 'yes' av funktionen predict() i tidymodelsleads_results
# A tibble: 332 x 4
purchased .pred_class .pred_yes .pred_no
<fct> <fct> <dbl> <dbl>
1 no no 0.134 0.866
2 yes yes 0.729 0.271
3 no no 0.133 0.867
4 no no 0.0916 0.908
5 yes yes 0.598 0.402
6 no no 0.128 0.872
7 yes no 0.112 0.888
8 no no 0.169 0.831
9 no no 0.158 0.842
10 yes yes 0.520 0.480
# ... with 322 more rows
Hur presterar en klassificeringsmodell över ett intervall av trösklar?
.pred_yes i testdatasets resultat
| threshold | specificity | sensitivity |
|---|---|---|
| 0 | 0 | 1 |
| 0.11 | 0.01 | 0.98 |
| 0.15 | 0.05 | 0.97 |
| ... | ... | ... |
| 0.84 | 0.89 | 0.08 |
| 0.87 | 0.94 | 0.02 |
| 0.91 | 0.99 | 0 |
| 1 | 1 | 0 |
ROC-kurva (receiver operating characteristic)
ROC-kurva (receiver operating characteristic)

Optimal prestanda uppnås i punkten (0, 1)
Optimal prestanda uppnås i punkten (0, 1)
Svag prestanda

Arean under ROC-kurvan (ROC AUC) sammanfattar ROC-kurvans information för en klassificeringsmodell i ett enda tal
Används som ett betyg för klassificeringsprestanda

Funktionen roc_curve()
truth med faktiska utfallskategorier.pred_yes i tibble:n leads_results
.pred_yesleads_results %>%
roc_curve(truth = purchased, .pred_yes)
# A tibble: 331 x 3
.threshold specificity sensitivity
<dbl> <dbl> <dbl>
1 -Inf 0 1
2 0.0871 0 1
3 0.0888 0.00472 1
4 0.0893 0.00943 1
5 0.0896 0.0142 1
6 0.0902 0.0142 0.992
7 0.0916 0.0142 0.983
8 0.0944 0.0189 0.983
# ... with 323 more rows
Skickar resultaten från roc_curve() till funktionen autoplot() för att rita en ROC-kurva
leads_results %>%
roc_curve(truth = purchased, .pred_yes) %>%
autoplot()

Funktionen roc_auc() från yardstick beräknar ROC AUC
truthroc_auc(leads_results,
truth = purchased,
.pred_yes)
# A tibble: 1 x 3
.metric .estimator .estimate
<chr> <chr> <dbl>
1 roc_auc binary 0.763
Modellering med tidymodels i R