loading_power_data.R, plot1.R

change the name of file and started plotting and fun