newdata3 <- c(HAmort[3],HFmort[3],PNEUmort[3])
names(newdata3) <- c("Heart Attack Mortality Rate","Heart Failure Mortality Rate","Pneumonia Mortality Rate" )
barplot(newdata3,cex.names = 1,main="Mortality Rate for different illness in ST Rose Hospital",
xlab = myfinaldata$Hospital.Name[3], ylab = "Mortality Rate",ylim= range(0:20))
textxy()
Hi , may i know how to what code should i type inside the function textxy so that i can get something like this :