library(DataTaipei)
library(forecast)
## Warning: package 'forecast' was built under R version 3.1.3
## Loading required package: zoo
##
## Attaching package: 'zoo'
##
## The following objects are masked from 'package:base':
##
## as.Date, as.Date.numeric
##
## Loading required package: timeDate
##
## Attaching package: 'timeDate'
##
## The following object is masked from 'package:xtable':
##
## align
##
## This is forecast 6.1
library(dplyr)
library(dygraphs)
## Warning: package 'dygraphs' was built under R version 3.1.3
library(xts)
##
## Attaching package: 'xts'
##
## The following objects are masked from 'package:dplyr':
##
## first, last
rs <- dataSetMetadataSearch("氣象")
rs
## id title
## 1: 5bc82dc7-f2a2-4351-abc8-c09c8a8d7529 今日氣象資訊
## 2: bceb2963-d2dd-4f2d-929c-67c1c0d48667 一週氣象資訊
## 3: 5fe903f2-c939-4654-a85b-7cc4f408b28e 攜手玩科學13:千變萬化的氣象
## 4: 89cc02f5-72ac-40cc-b605-abc66250d5d7 新絲路
## type category metadata_modified accrualPeriodicity
## 1: 網路服務 2015-05-23 15:19:51 每天
## 2: 網路服務 2015-05-23 15:19:01 每天
## 3: NA NA 2015-03-06 16:28:03 NA
## 4: NA NA 2015-03-06 16:42:40 NA
## contactEmail contactName contactPhone cost costLaw
## 1: ic-wychen@mail.taipei.gov.tw 陳崴逸 02-27258588 免費
## 2: ic-wychen@mail.taipei.gov.tw 陳崴逸 2720-8889#8588 免費
## 3: NA NA NA NA NA
## 4: NA NA NA NA NA
## costURL description fieldDescription issued language
## 1: 今日氣象資訊資料集描述 今日氣象資訊主要欄位說明
## 2: 一週氣象資訊資料集描述 一週氣象資訊主要欄位說明
## 3: NA NA NA NA NA
## 4: NA NA NA NA NA
## numberOfData orgId orgName organizationContactEmail
## 1: 2418 379730000A 臺北市政府資訊局
## 2: 330 379730000A 臺北市政府資訊局
## 3: NA 379040000E 臺北市政府教育局 NA
## 4: NA 379590000E 臺北市政府文化局 NA
## organizationContactName organizationContactPhone organizationName
## 1:
## 2:
## 3: NA NA NA
## 4: NA NA NA
## relatedUrl spatial temporalCoverageFrom temporalCoverageTo tag
## 1:
## 2:
## 3: NA NA NA NA
## 4: NA NA NA NA
## displayName Author attributeCategory baseLow
## 1: NA NA NA NA
## 2: NA NA NA NA
## 3: 公共資訊 吳立萍 專書 文字、圖片資訊公開
## 4: 公共資訊 臺北市立國樂團 期刊 臺北市立國樂團版權所有
## creator exhibitionSale gpn itn
## 1: NA NA NA NA
## 2: NA NA NA NA
## 3: mj-shaochi@mail.taipei.gov.tw 無 1010102252 ISBN
## 4: hong@tco.gov.tw 五南文化廣場展售門市 2007400026 ISSN
## itnNo journalNo languages otherBudget otherLang
## 1: NA NA NA NA NA
## 2: NA NA NA NA NA
## 3: 9789860340075 無 中文 本中心業務費(印刷費)
## 4: 10234411 25期 中文,英文 出版品專案預算及年度預算
## price publishCategory publishDate
## 1: NA NA NA
## 2: NA NA NA
## 3: 250 圖書 2012-10
## 4: 100 連續性出版品(期刊) 2012-01
## publishSummary
## 1: NA
## 2: NA
## 3: 本書從臺灣的四季氣候特色,跟著東北季風去旅行,並透過簡單小道具及DIY的方式讓讀者從中得知基礎科學知識。
## 4: 龍騰新年新氣象,而臺北市立國樂團也正展開一個新時代。今年的業務重點除了規劃超過半年的歐洲巡演與第一屆臺北國樂節之外,樂團音樂季今年強打葉聰、閻惠昌、呂嘉、簡文彬等國際知名的客席指揮,增加北市國音樂會豐富性。此外,北市國今年錄取吳孟珊(二胡)、林承鋒(中胡)、馬欣妤(中阮)、林盈君(倍革胡)四位新進團員。前三位來自北市國學院樂團,學西樂的林盈君是留學法國。他們不僅技巧優異,同時也積極參與音樂相關活動規劃等多領域發展,顯見在國樂人才培養方面,樂團教育和本土扎根並重的目標,已有一定程度的成效。\r\n\r\n 2012年樂團樂的客席指揮群是歷年最精彩的,邀請到葉聰、許知俊、陳澄雄、簡文彬、彭家鵬、閻惠昌、呂嘉等人,為北市國今年節目增加不少藝術深度與色彩。邀請國際知名客席指揮最大的目的,除了填補樂團首席指揮空缺的空檔外,也讓團員認識世界知名指揮的能力與風格,對海外樂團與音樂環境有更寬廣的了解,增進團員對未來首席指揮遴選的認知。\r\n
## sponsorDept subOrgId subOrgName
## 1: NA NA NA
## 2: NA NA NA
## 3: 無
## 4: 無 379590100E 臺北市立國樂團
resource <- getResources(rs, 2)
resource
## resourceId resourceName
## 1: e6831708-02b4-4ef8-98fa-4b4ce53459d9 weatherReport1.xml
## resourceDescription resourceUpdate format
## 1: 2015-05-23T15:19:00 XML
rid <- resource$resourceId[1]
df <- resourceAquire(rid)
df2 <- filter(df, locationName == "臺北市") %>%
mutate(startTime = as.POSIXct(strptime(startTime, "%Y-%m-%dT%H:%M:%S+08:00")), 氣溫=parameterName2) %>%
dplyr::select(startTime, 氣溫)
xts(df2[,-1,with=FALSE], order.by = df2$startTime) %>%
dygraph