scripts and png bu digigit

4 R scripts a and their corresponding png output