Graph- Vaccine WTP cost

a=read.csv("C:/Users/binht/Dropbox/Hue/research/De tai cap truong/Y duc/NC chi tra vaccine/KQNC/plot.csv")

0.1

library(ggplot2)

a1=ggplot(data=a, aes(x=wtp, y=Cum)) +
  geom_line() +
  ggtitle("") +
  labs(x="Willingness to pay for full-vaccination (1,000 VND)",y="Cummulative Percentage") + 
  theme(plot.title = element_text(family = "Trebuchet MS", color="#000000", face="bold", size=12, hjust=0)) +  theme(axis.title = element_text(family = "Trebuchet MS", color="#000000", face="bold", size=12)) 

a3=a1+theme_bw() + theme(panel.border = element_blank(), panel.grid.major = element_blank(),panel.grid.minor = element_blank(), axis.line = element_line(colour = "black"))+geom_line( size = 1.2)
a3

a3 + geom_vline(xintercept = 418)+geom_vline(xintercept = 663)