Create PLot6.R