How to plot decision tree with igraph in R

Question

I want to replicate this exact graph with the igraph package.

See data here for replication:

$feature_splits
[1] "Pat"