run_analysis.R coding

Point 1~4