This is really clever! I'd suggest a couple of lines to add a table that resembles a confusion matrix:

```

comparison_table <- table(dataset$Y, dataset$Y_lda_prediction) %>% prop.table(1)

```