basic barplot with multiple ifelse statements

I am trying to create barplot from multiple/nested ifelse statements. I have various variables that Im trying to show in a bar plot but end up with incorrect numbers in my barplot... so im thinking my ifelse statements are not working correctly? Is there an easier way to code this?

I'm not sure but here's my code below:

ptnt$prevacute <-ifelse(ptnt$Prev_AcuteRegimens_Grouped_1=="Yes","Sumatriptan", ifelse(ptnt$Prev_AcuteRegimens_Grouped_2=="Yes", "Sumatriptan & Naproxen", ifelse(ptnt$Prev_AcuteRegimens_Grouped_3=="Yes","Rizatriptan", ifelse(ptnt$Prev_AcuteRegimens_Grouped_4=="Yes","Zolmitriptan",ifelse(ptnt$Prev_AcuteRegimens_Grouped_5=="Yes", "Naratriptan",ifelse(ptnt$Prev_AcuteRegimens_Grouped_6=="Yes","Eletriptan", ifelse(ptnt$Prev_AcuteRegimens_Grouped_7=="Yes","Frovatriptan", ifelse(ptnt$Prev_AcuteRegimens_Grouped_8=="Yes","Almotriptan",ifelse(ptnt$Prev_AcuteRegimens_Grouped_9=="Yes","Loxoprofen", ifelse(ptnt$Prev_AcuteRegimens_Grouped_10=="Yes","Naproxen", ifelse(ptnt$Prev_AcuteRegimens_Grouped_11=="Yes","Ketoprofen", ifelse(ptnt$Prev_AcuteRegimens_Grouped_12=="Yes","Diclofenac", ifelse(ptnt$Prev_AcuteRegimens_Grouped_13=="Yes","Paracetamol", ifelse(ptnt$Prev_AcuteRegimens_Grouped_14=="Yes","Codeine/Paracetamol", ifelse(ptnt$Prev_AcuteRegimens_Grouped_15=="Yes","Dihydroergotamine(DHE)", ifelse(ptnt$Prev_AcuteRegimens_Grouped_16=="Yes","Ergotamine Tartrate","Ibuprofen"))))))))))))))))

par(las=2) #make label text perpendicular to axis par(mar=c(5,8,4,2)) #increase y-axis margin

counts <- table(ptnt$prevacute)

prop <- prop.table(counts)*100

Barplot with counts

barplot(counts, main="Physician Reported: Patients on acute medication previously (all previous regimens) (N=957)", cex.main=0.7, xlab="Number of Patients", cex.lab=0.7, cex.axis = 0.7, cex.names=0.5, horiz=TRUE, xlim=c(0,340))

Thanks in advance!