library("foreign")
## Warning: package 'foreign' was built under R version 3.2.5
library("ggplot2")
## Warning: package 'ggplot2' was built under R version 3.2.5
a=read.csv("C:/Users/BINH THANG/Dropbox/Korea/STudy/Thesis/data management/DataR/Rcode/cummulate graphs.csv")
a1=ggplot(data=a, aes(x=id, y=Cum)) +
  geom_line() +
  ggtitle("") +
  labs(x="Price per pack (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

#tiff("image.tif", res=96, compression = "lzw", height=6.4, width=12.5, units="in")
#plot(a3)
#dev.off()

```