Ask code for the plot of classification of iris dataset?

[Vilter]

I am learning this website:

https://rpubs.com/rpadebet/269829

But this website doesn't have R code for this figure. How to replicate this figure below?

[williaml]

It would be something like this -- I have made the models up myself.

library(tidymodels)
library(tidyverse)
library(ranger)

split <- initial_split(iris)

test_df <- testing(split)
train_df <- training(split)


fit1 <- ranger(Species ~ Petal.Length, data = test_df)
summary(fit1)


new_df <- test_df %>% 
  mutate(pred = predict(fit1, test_df)$predictions,
         model_correct = pred == Species)

ggplot(new_df, aes(Petal.Length, Sepal.Length, colour = model_correct, shape = Species)) +
  geom_point()