---
title: "Quadrillion_PowerData"
output: 
  flexdashboard::flex_dashboard:
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(data.table)
library(dplyr)
library(tidyr)
library(gdata)
library(stringr)
library(DT)
library(ggthemes)
library(ggplot2)
library(rgeos)
library(maptools)
library(ineq)
library(plotly)
library(xts)
library(lubridate)
library(dygraphs)
library(gridExtra)
library(googlesheets)
library(RColorBrewer)
library(rgdal)
library(corrplot)
library(RJDBC)  
library(fpc)
library(highcharter)
library(radarchart)
c("#A6CEE3","#1F78B4","#B2DF8A","#33A02C","#FB9A99","#E31A1C","#FDBF6F","#FF7F00","#CAB2D6","#6A3D9A") -> col.raw
cbind(grDevices::col2rgb(col.raw),3) -> col
data_cluster <- read.csv('~/Dropbox/ATCC-IBM/data_cluster.csv', fileEncoding = 'BIG5', header = T)
radar.data <- read.csv('~/Dropbox/ATCC-IBM/radar_data.csv', fileEncoding = 'BIG5', header = T) %>% 
  mutate_each(funs(round(.,digits=2)),-index)
```

分群分析 {#preliminary}
=======

Column {.tabset .tabset-fade}
-------------------------------------

### 第10群
```{r}
highchart() %>% 
  hc_chart(polar = TRUE, type = "line") %>% 
  hc_title(text = "第10群") %>% 
  hc_xAxis(categories = c('大學比例', '大學以上比例', '大學以下比例', 
                          '戶數',  '老年人口比例', '每戶平均老年人口數',
                          '每戶平均用電度數', '男女比', '青年人口比例',
                          '少年人口比例', '設有戶籍宅數之平均人口數',
                          '一名老年人口宅數', '有偶比例', '綜合所得中位數'),
           tickmarkPlacement = 'on',
           lineWidth = 0) %>% 
  hc_yAxis(gridLineInterpolation = 'polygon',
           lineWidth = 0,
           min = 0, max = 1) %>% 
  hc_series(
    list(
      name = "第10群",
      data = radar.data[,c(11)],
      pointPlacement = 'on',color=col.raw[10]))
```


### 第7群
```{r}
highchart() %>% 
  hc_chart(polar = TRUE, type = "line") %>% 
  hc_title(text = "第7群") %>% 
  hc_xAxis(categories = c('大學比例', '大學以上比例', '大學以下比例', 
                          '戶數',  '老年人口比例', '每戶平均老年人口數',
                          '每戶平均用電度數', '男女比', '青年人口比例',
                          '少年人口比例', '設有戶籍宅數之平均人口數',
                          '一名老年人口宅數', '有偶比例', '綜合所得中位數'),
           tickmarkPlacement = 'on',
           lineWidth = 0) %>% 
  hc_yAxis(gridLineInterpolation = 'polygon',
           lineWidth = 0,
           min = 0, max = 1) %>% 
  hc_series(
    list(
      name = "第7群",
      data = radar.data[,c(8)],
      pointPlacement = 'on',color=col.raw[7]))
```


### 第6群
```{r}
highchart() %>% 
  hc_chart(polar = TRUE, type = "line") %>% 
  hc_title(text = "第6群") %>% 
  hc_xAxis(categories = c('大學比例', '大學以上比例', '大學以下比例', 
                          '戶數',  '老年人口比例', '每戶平均老年人口數',
                          '每戶平均用電度數', '男女比', '青年人口比例',
                          '少年人口比例', '設有戶籍宅數之平均人口數',
                          '一名老年人口宅數', '有偶比例', '綜合所得中位數'),
           tickmarkPlacement = 'on',
           lineWidth = 0) %>% 
  hc_yAxis(gridLineInterpolation = 'polygon',
           lineWidth = 0,
           min = 0, max = 1) %>% 
  hc_series(
    list(
      name = "第6群",
      data = radar.data[,c(7)],
      pointPlacement = 'on',color=col.raw[6]))
```


### 第9群
```{r}
highchart() %>% 
  hc_chart(polar = TRUE, type = "line") %>% 
  hc_title(text = "第9群") %>% 
  hc_xAxis(categories = c('大學比例', '大學以上比例', '大學以下比例', 
                          '戶數',  '老年人口比例', '每戶平均老年人口數',
                          '每戶平均用電度數', '男女比', '青年人口比例',
                          '少年人口比例', '設有戶籍宅數之平均人口數',
                          '一名老年人口宅數', '有偶比例', '綜合所得中位數'),
           tickmarkPlacement = 'on',
           lineWidth = 0) %>% 
  hc_yAxis(gridLineInterpolation = 'polygon',
           lineWidth = 0,
           min = 0, max = 1) %>% 
  hc_series(
    list(
      name = "第9群",
      data = radar.data[,c(10)],
      pointPlacement = 'on',color=col.raw[9]))
```


### 第5群
```{r}
highchart() %>% 
  hc_chart(polar = TRUE, type = "line") %>% 
  hc_title(text = "第5群") %>% 
  hc_xAxis(categories = c('大學比例', '大學以上比例', '大學以下比例', 
                          '戶數',  '老年人口比例', '每戶平均老年人口數',
                          '每戶平均用電度數', '男女比', '青年人口比例',
                          '少年人口比例', '設有戶籍宅數之平均人口數',
                          '一名老年人口宅數', '有偶比例', '綜合所得中位數'),
           tickmarkPlacement = 'on',
           lineWidth = 0) %>% 
  hc_yAxis(gridLineInterpolation = 'polygon',
           lineWidth = 0,
           min = 0, max = 1) %>% 
  hc_series(
    list(
      name = "第5群",
      data = radar.data[,c(6)],
      pointPlacement = 'on',color=col.raw[5]))
```

Column {.tabset .tabset-fade}
-------------------------------------

### 第1群
```{r}
highchart() %>% 
  hc_chart(polar = TRUE, type = "line") %>% 
  hc_title(text = "第1群") %>% 
  hc_xAxis(categories = c('大學比例', '大學以上比例', '大學以下比例', 
                          '戶數',  '老年人口比例', '每戶平均老年人口數',
                          '每戶平均用電度數', '男女比', '青年人口比例',
                          '少年人口比例', '設有戶籍宅數之平均人口數',
                          '一名老年人口宅數', '有偶比例', '綜合所得中位數'),
           tickmarkPlacement = 'on',
           lineWidth = 0) %>% 
  hc_yAxis(gridLineInterpolation = 'polygon',
           lineWidth = 0,
           min = 0, max = 1) %>% 
  hc_series(
    list(
      name = "第1群",
      data = radar.data[,c(2)],
      pointPlacement = 'on',color=col.raw[1]))
```


### 第4群
```{r}
highchart() %>% 
  hc_chart(polar = TRUE, type = "line") %>% 
  hc_title(text = "第4群") %>% 
  hc_xAxis(categories = c('大學比例', '大學以上比例', '大學以下比例', 
                          '戶數',  '老年人口比例', '每戶平均老年人口數',
                          '每戶平均用電度數', '男女比', '青年人口比例',
                          '少年人口比例', '設有戶籍宅數之平均人口數',
                          '一名老年人口宅數', '有偶比例', '綜合所得中位數'),
           tickmarkPlacement = 'on',
           lineWidth = 0) %>% 
  hc_yAxis(gridLineInterpolation = 'polygon',
           lineWidth = 0,
           min = 0, max = 1) %>% 
  hc_series(
    list(
      name = "第4群",
      data = radar.data[,c(5)],
      pointPlacement = 'on',color=col.raw[4]))
```


### 第8群
```{r}
highchart() %>% 
  hc_chart(polar = TRUE, type = "line") %>% 
  hc_title(text = "第8群") %>% 
  hc_xAxis(categories = c('大學比例', '大學以上比例', '大學以下比例', 
                          '戶數',  '老年人口比例', '每戶平均老年人口數',
                          '每戶平均用電度數', '男女比', '青年人口比例',
                          '少年人口比例', '設有戶籍宅數之平均人口數',
                          '一名老年人口宅數', '有偶比例', '綜合所得中位數'),
           tickmarkPlacement = 'on',
           lineWidth = 0) %>% 
  hc_yAxis(gridLineInterpolation = 'polygon',
           lineWidth = 0,
           min = 0, max = 1) %>% 
  hc_series(
    list(
      name = "第8群",
      data = radar.data[,c(9)],
      pointPlacement = 'on',color=col.raw[8]))
```


### 第2群
```{r}
highchart() %>% 
  hc_chart(polar = TRUE, type = "line") %>% 
  hc_title(text = "第2群") %>% 
  hc_xAxis(categories = c('大學比例', '大學以上比例', '大學以下比例', 
                          '戶數',  '老年人口比例', '每戶平均老年人口數',
                          '每戶平均用電度數', '男女比', '青年人口比例',
                          '少年人口比例', '設有戶籍宅數之平均人口數',
                          '一名老年人口宅數', '有偶比例', '綜合所得中位數'),
           tickmarkPlacement = 'on',
           lineWidth = 0) %>% 
  hc_yAxis(gridLineInterpolation = 'polygon',
           lineWidth = 0,
           min = 0, max = 1) %>% 
  hc_series(
    list(
      name = "第2群",
      data = radar.data[,c(3)],
      pointPlacement = 'on',color=col.raw[2]))
```


### 第3群
```{r}
highchart() %>% 
  hc_chart(polar = TRUE, type = "line") %>% 
  hc_title(text = "第3群") %>% 
  hc_xAxis(categories = c('大學比例', '大學以上比例', '大學以下比例', 
                          '戶數',  '老年人口比例', '每戶平均老年人口數',
                          '每戶平均用電度數', '男女比', '青年人口比例',
                          '少年人口比例', '設有戶籍宅數之平均人口數',
                          '一名老年人口宅數', '有偶比例', '綜合所得中位數'),
           tickmarkPlacement = 'on',
           lineWidth = 0) %>% 
  hc_yAxis(gridLineInterpolation = 'polygon',
           lineWidth = 0,
           min = 0, max = 1) %>% 
  hc_series(
    list(
      name = "第3群",
      data = radar.data[,c(4)],
      pointPlacement = 'on',color=col.raw[3]))
```


高用電量族群分析(IBM Watson) {#cluster .storyboard}
=======

### 男女比 X 一名老年人口宅數 X 每戶平均用電度數






### 男女比 X 大學以上比例 X 每戶平均用電度數






家電使用習慣問卷分析(IBM Watson) {#survey .storyboard}
========


### 吹風機使用習慣分析







### 冷氣使用習慣分析





### 冰箱使用習慣分析





### 手機使用習慣分析





### 除濕機使用習慣分析





### 電熱水瓶使用習慣分析