upload homework

.gitignore

@@ -2,6 +2,7 @@ venv/
 node_modules
 npm-debug.log
 *.swp
+*/**.swp
 .DS_Store
 *~
 bower_components

2016_C14026028/A3.csv

@@ -0,0 +1,19 @@
+�O�n���F��ĵ�104�~�U���F�ƭ�]�έp��(����1-4),,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
+����,�`�p,������F�Ʀ]��,�H�W�W��,�j�ॼ�̳W�w,��V�D�����V,�˨����̳W�w,�W�t����,���̳W�w��t,�m�V��H��V�D,���O���樮�w���Z��,���O���樮�w�����j,�����ާ@�ɡA���`�N��L��(�H)�w��,�_�B���`�N��L��(�H)�w��,��(�m)�D��p,�l���H�T����r�p����,�s�K(��)�r�p����,�h��(�w�f)�r�p����,���`�N���e���A,�H�ϸ��x�ި�Ϋ���,�H�ϯS�w�лx(�u)�T��,���̳W�w�ϥοO��,�D��B��V���w,�˸��f����í��,�W���H���ӥ���,�f���W���B�e�B���ӻF��,�˨��f������,�˸����ɦw�����I,���ݭ��Ȧw���W�U�}��,��L�˸������F��,�H�W�����μȰ������ӻF��,���㥼�Ħw�����I,�f�V��p,�}?���������ӻF��,�ϥΤ����ʹq�ܥ���,��L�ް_�ƬG���H�W�Τ����欰,������]�F��,�|���o�{�F�Ʀ]��,�٨����F,��V���a�t�άG��,�O���t�άG��,�����渨�ν��L�z��,�����s��渨,���a�k��p,�䥦�ް_�ƬG���G��,���̳W�w�樫��H��V�D�B�a�U�D�B�Ѿ��Ӭ�V�D��,���̼лx�B�нu�B���x�Τ�ի�����V�D��,��V�D�����`�N���k�Ө�,�b�D���W�^���Ωb�����w,�b���W�u�@���]�A�|����,���̳W�w����,�䥦�ް_�ƬG�������Φ欰,���p�M�I�L�w��(ĵ�i)�]�I,��q�ި�]�I���F�ηl��,��L��q�ި��,�ʪ�«�X,�����o�{�F�Ʀ]��,�ܴ����D�Τ�V����,�����s���̳W�w,�k���s���̳W�w,,,,,,,
+�`�p,21655,372,174,625,208,223,59,108,48,950,831,19,912,27,2,481,85,4158,1687,364,19,18,8,1,2,1,1,1,4,64,3,401,247,1,808,433,117,15,2,2,27,3,154,12,56,20,55,4,3,5127,23,5,1,5,11,3,549,1476,640,,,,,,,
+�s�����,1530,30,13,57,19,22,2,12,4,48,39,0,79,3,0,30,7,376,84,31,3,0,0,0,0,0,0,0,0,3,0,42,18,0,19,10,1,3,1,0,1,0,9,1,11,2,2,0,1,356,0,0,0,0,0,0,28,111,52,,,,,,,
+�ժe����,564,6,10,5,3,8,8,8,0,12,15,0,25,0,0,26,13,200,19,11,1,0,2,0,0,0,0,0,0,1,0,11,3,0,2,4,1,1,0,0,3,0,10,3,0,0,1,0,0,111,1,0,0,0,1,0,5,21,13,,,,,,,
+�¨�����,1380,11,7,37,7,18,8,11,1,50,47,1,33,3,0,42,1,409,61,19,5,4,0,0,0,0,0,1,0,3,0,19,22,0,10,14,3,0,0,0,5,0,10,0,1,0,6,1,0,283,1,1,0,1,1,0,21,142,60,,,,,,,
+������,1409,25,17,59,24,17,3,11,2,73,37,3,46,2,0,26,19,291,87,7,1,1,1,1,0,0,0,0,0,6,0,25,13,0,12,17,9,0,0,0,3,0,10,0,2,3,5,0,0,368,4,0,0,0,0,1,31,93,54,,,,,,,
+�ǥҤ���,436,20,8,10,2,7,2,3,0,8,9,0,8,0,1,26,2,97,28,1,1,0,0,0,0,0,0,0,0,6,0,3,3,0,20,6,3,0,1,0,1,0,5,0,1,1,2,1,0,111,1,1,0,0,2,0,5,24,6,,,,,,,
+���Ƥ���,1640,53,30,45,8,16,1,7,0,54,34,0,92,2,0,34,4,329,126,24,5,0,0,0,0,0,0,0,0,0,0,29,16,0,47,16,4,1,0,0,3,1,17,0,0,0,11,0,0,522,0,0,0,0,0,0,35,52,22,,,,,,,
+�s�Ƥ���,823,34,2,19,10,2,1,6,2,36,27,0,43,1,0,19,9,201,40,32,0,0,1,0,0,0,0,0,0,4,0,17,5,0,22,26,17,1,0,1,5,0,10,1,4,5,4,0,1,165,2,0,0,0,1,0,20,24,3,,,,,,,
+�k������,1624,53,12,71,21,15,18,5,0,118,68,1,60,1,0,40,8,269,145,13,0,1,1,0,0,0,0,0,0,1,1,27,13,0,50,26,9,1,0,0,0,0,23,2,1,1,3,0,0,274,0,1,0,0,0,0,32,169,70,,,,,,,
+�ɤ�����,183,9,3,3,0,4,3,4,0,7,11,0,5,0,0,11,2,49,10,5,0,0,0,0,0,0,0,0,0,1,0,6,0,0,2,1,0,1,0,0,0,0,1,0,0,0,1,0,0,33,1,0,0,0,1,0,3,4,2,,,,,,,
+�ñd����,3628,47,34,81,35,31,6,14,7,202,155,7,167,6,0,71,11,540,375,74,3,4,0,0,0,0,0,0,2,6,1,66,45,0,67,127,41,7,0,1,3,0,28,0,9,3,3,1,0,894,2,1,0,0,0,1,86,242,122,,,,,,,
+�Ĥ@����,1385,4,1,46,19,6,1,3,1,49,65,1,63,3,1,40,0,157,106,32,0,1,0,0,0,0,0,0,0,9,0,15,14,1,147,42,9,0,0,0,0,0,8,0,3,2,1,0,0,313,3,0,0,0,0,1,39,128,51,,,,,,,
+�ĤG����,2224,7,18,71,24,16,2,5,15,91,94,5,115,1,0,10,4,475,232,58,0,3,0,0,1,0,0,0,0,10,1,46,40,0,35,35,8,0,0,0,2,0,4,1,16,0,3,0,0,509,1,0,0,1,0,0,97,128,40,,,,,,,
+�ĤT����,1399,23,5,32,14,11,0,4,1,51,28,1,33,0,0,51,2,245,58,17,0,2,1,0,0,0,0,0,2,6,0,24,11,0,265,27,5,0,0,0,0,0,6,1,3,1,5,1,1,291,4,1,1,2,2,0,35,82,44,,,,,,,
+�ĥ|����,844,2,1,35,5,17,0,8,2,35,33,0,51,2,0,9,1,100,56,11,0,0,0,0,0,0,0,0,0,3,0,12,15,0,17,42,2,0,0,0,0,0,1,1,1,0,2,0,0,285,0,0,0,0,0,0,23,51,21,,,,,,,
+�Ĥ�����,1613,14,11,26,7,16,4,5,10,94,117,0,59,0,0,11,0,305,165,28,0,2,1,0,0,1,0,0,0,3,0,35,20,0,20,31,2,0,0,0,1,2,7,0,4,2,4,0,0,444,2,0,0,1,2,0,48,78,31,,,,,,,
+�Ĥ�����,973,34,2,28,10,17,0,2,3,22,52,0,33,3,0,35,2,115,95,1,0,0,1,0,1,0,1,0,0,2,0,24,9,0,73,9,3,0,0,0,0,0,5,2,0,0,2,0,0,168,1,0,0,0,1,0,41,127,49,,,,,,,

2016_C14026028/R/hello.R

@@ -0,0 +1,30 @@
+# Hello, world!
+#
+# This is an example function named 'hello'
+# which prints 'Hello, world!'.
+#
+# You can learn more about package authoring with RStudio at:
+#
+#   http://r-pkgs.had.co.nz/
+#
+# Some useful keyboard shortcuts for package authoring:
+#
+#   Build and Reload Package:  'Ctrl + Shift + B'
+#   Check Package:             'Ctrl + Shift + E'
+#   Test Package:              'Ctrl + Shift + T'
+library(readr)
+library(Rcpp)
+library(RColorBrewer)
+library(wordcloud)
+
+hello<- function() {
+  data<-read.csv("~/R/DataVision/A3.csv")
+  newdata<-t(data)
+  rc=brewer.pal(9,"Set1")
+  newdata<-newdata[-1,]
+  newdata<-newdata[-1,]
+  newdata<-as.data.frame(newdata)
+  newdata$V2<-as.numeric(as.character(newdata$V2))
+  newdata<-na.omit(newdata)
+  wordcloud(newdata$V1,newdata$V2,scale=c(5,0.5),mim.freq=1000,max.words=Inf,colors=rc,random.order=F,random.color=T)
+}

2016_C14026028/R/server.R

@@ -0,0 +1,23 @@
+library(shiny)
+library(readr)
+library(Rcpp)
+library(RColorBrewer)
+library(wordcloud)
+
+# Define server logic required to draw a histogram
+function(input, output) {
+
+  output$plot1 <- renderPlot({
+    data<-read.csv("~/R/DataVision/A3.csv")
+    newdata<-t(data)
+    rc=brewer.pal(9,"Set1")
+    newdata<-newdata[-1,]
+    newdata<-newdata[-1,]
+    newdata<-as.data.frame(newdata)
+    newdata$V2<-as.numeric(as.character(newdata$V2))
+    newdata<-na.omit(newdata)
+    wordcloud(newdata$V1,newdata$V2,scale=c(5,0.5),mim.freq=input$bins,max.words=Inf,colors=rc,random.order=F,random.color=T)
+  })
+
+
+}

2016_C14026028/R/ui.R

@@ -0,0 +1,28 @@
+library(shiny)
+library(readr)
+library(Rcpp)
+library(RColorBrewer)
+library(wordcloud)
+
+# Define UI for application that draws a histogram
+fluidPage(
+
+  # Application title
+  titlePanel("臺南市104年交通事故肇事原因"),
+
+  # Sidebar with a slider input for the number of bins
+  sidebarLayout(
+    sidebarPanel(
+      sliderInput("bins",
+                  "最低頻率:",
+                  min = 0,
+                  max = 500,
+                  value = 300)
+    ),
+
+    # Show a plot of the generated distribution
+    mainPanel(
+      plotOutput("plot1")
+    )
+  )
+)

2016_C14026028/readme.md

@@ -0,0 +1,23 @@
+這次的視覺化是採用R語言來實作
+
+主要的作業環境是win10上的Rstudio
+
+因為自己很關心用路人的環境
+
+再加上台灣用路人普遍對於道安駕駛知識低落,習慣非常不良
+
+所以想整理出那些違規最容易造成車禍
+
+主要分析的地區是在台南
+
+資料來源也是台南的open data網路資源
+
+瀏覽過資料大致上的結構之後
+
+根據想呈現的方式來修飾資料格式
+
+表現的方式是用文字雲
+
+使用的是R語言裡面內建的wordcloud函數
+
+讓大家可以快速看到最容易發生意外的違規習慣是什麼

2016_F74021145/README.md

@@ -0,0 +1,13 @@
+# 全球14個先進國家近20年來之壽命變化  
+#[網站連結] (https://yenwang.github.io/life_span_visualization/)  
+#呈現目標  
+隨著醫療技術的提升，近年來各個先進國家的人民平均壽命逐漸上升，此專案透過呈現以下14個先進國家：  
+台灣、日本、韓國、美國、英國、德國、法國、挪威、瑞士、荷蘭、瑞典、奧地利、義大利、西班牙  
+之20年來平均壽命(以1995年、2005年、2015年為取樣年分)的變化，來推論醫療科技的進步和人民平均壽命的正比關係  
+並透過這14個國家的平均壽命差距，供人推測可能的成因。(ex:台灣空氣品質的影響......等等)  
+#使用到的技術  
+[d3.js v3] (https://d3js.org/)  
+#設計流程 
+1.到[政府資料開放平台] (http://data.gov.tw/)抓取所需的資料(此處使用[主要國家零歲平均餘命] (http://data.gov.tw/node/39495))  
+2.讀入資料並繪製成長條圖  
+3.供按鈕可以讓使用者依據有興趣的年份去做大小排序