How to achieve 100% accuracy in confusion matrix using XGBoost in R?

General
1

hpset_xgboost <- parameters(
mtry(range = c(2, 15)),
min_n(range = c(3, 10)),
tree_depth(range = c(2, 5)),
learn_rate(range = c(-1.5, -1)),）
loss_reduction(range = c(-3, -1.5)),
sample_prop(range = c(0.8, 1))
)