Thank you so much....This worked really well but I dont know why the code which put didnt work -
library(ggplot2)
CPR_RATE <- read_excel("E:/SK Patodia Group/NFHS 4 DATA/CPR RATE.xlsx")
dim(CPR_RATE)
str(CPR_RATE)
a <- ggplot(CPR_RATE,aes(x=injectables,y=modern_cpr))
a <- a + geom_blank() + ylim(0,75) + xlim(0,10)