ReportMonth
cy ting
December 2, 2016
name <- "Ting"My Report
This is the report generated by Ting
I generate the report today 02-December-2016
Data Exploratory
Display the data
dt <- read.csv("set2.csv")
dt[,1:10]## X Day W1 W2 W3 W4 W5 W6 D7 D8
## 1 21 21 24 39 85 49 64 65 60 45
## 2 22 22 32 31 28 43 44 33 48 32
## 3 23 23 21 43 60 55 64 41 34 22
## 4 24 24 34 37 66 47 34 85 56 52
## 5 25 25 34 48 82 68 53 76 63 74
## 6 26 26 51 63 99 115 94 125 79 64
## 7 27 27 48 58 48 22 62 27 64 44
## 8 28 28 30 49 46 45 51 52 65 38
## 9 29 29 16 46 43 47 51 41 36 43
## 10 30 30 40 44 77 77 75 88 86 75Summary of Data
summary(dt)## X Day W1 W2
## Min. :21.00 Min. :21.00 Min. :16.0 Min. :31.00
## 1st Qu.:23.25 1st Qu.:23.25 1st Qu.:25.5 1st Qu.:40.00
## Median :25.50 Median :25.50 Median :33.0 Median :45.00
## Mean :25.50 Mean :25.50 Mean :33.0 Mean :45.80
## 3rd Qu.:27.75 3rd Qu.:27.75 3rd Qu.:38.5 3rd Qu.:48.75
## Max. :30.00 Max. :30.00 Max. :51.0 Max. :63.00
## W3 W4 W5 W6
## Min. :28.00 Min. : 22.00 Min. :34.0 Min. : 27.00
## 1st Qu.:46.50 1st Qu.: 45.50 1st Qu.:51.0 1st Qu.: 41.00
## Median :63.00 Median : 48.00 Median :57.5 Median : 58.50
## Mean :63.40 Mean : 56.80 Mean :59.2 Mean : 63.30
## 3rd Qu.:80.75 3rd Qu.: 64.75 3rd Qu.:64.0 3rd Qu.: 82.75
## Max. :99.00 Max. :115.00 Max. :94.0 Max. :125.00
## D7 D8 D9 D10
## Min. :34.00 Min. :22.00 Min. :22.00 Min. :17.00
## 1st Qu.:50.00 1st Qu.:39.25 1st Qu.:27.00 1st Qu.:34.25
## Median :61.50 Median :44.50 Median :35.50 Median :55.00
## Mean :59.10 Mean :48.90 Mean :41.10 Mean :49.00
## 3rd Qu.:64.75 3rd Qu.:61.00 3rd Qu.:52.25 3rd Qu.:63.00
## Max. :86.00 Max. :75.00 Max. :70.00 Max. :70.00
## VM Weather Gas_Usage Electricity_Usage
## Min. :10.00 rain :3 Min. :4032 Min. :11.00
## 1st Qu.:14.00 rain_thunderstorm:4 1st Qu.:5294 1st Qu.:25.75
## Median :22.00 sunny :2 Median :5877 Median :29.50
## Mean :22.40 thunderstorm :1 Mean :6336 Mean :30.00
## 3rd Qu.:27.75 3rd Qu.:6957 3rd Qu.:32.75
## Max. :40.00 Max. :9570 Max. :49.00
## Water_Usage Detergent_1 Detergent_2 Softener Bleach
## Min. :38005 Min. :1.0 Min. :0.0 Min. :1.0 Min. : 0.0
## 1st Qu.:46021 1st Qu.:4.0 1st Qu.:3.0 1st Qu.:2.0 1st Qu.: 0.0
## Median :60469 Median :4.0 Median :4.5 Median :3.5 Median : 0.0
## Mean :56739 Mean :4.1 Mean :3.7 Mean :4.1 Mean : 1.8
## 3rd Qu.:65434 3rd Qu.:5.0 3rd Qu.:5.0 3rd Qu.:5.0 3rd Qu.: 0.0
## Max. :76472 Max. :6.0 Max. :6.0 Max. :9.0 Max. :18.0
## Aroma Bag CoinLost
## Min. :0.00 Min. :0.0 Min. :11.0
## 1st Qu.:0.00 1st Qu.:1.0 1st Qu.:21.0
## Median :0.50 Median :2.0 Median :47.5
## Mean :1.50 Mean :2.2 Mean :44.4
## 3rd Qu.:2.75 3rd Qu.:3.0 3rd Qu.:58.0
## Max. :5.00 Max. :5.0 Max. :84.0Plot graph
library(ggplot2)
p <- ggplot(dt, aes(W1, W2))
p + geom_point()