How can I plot bar chart in R and show 2 methods in same graph?

Question

setwd("C:/Users/sy/Desktop/sy")
data_heart = read.csv("heart_disease_dataset.csv", header = T, sep = ",")
data_heart

#split randomly test