library(DataTaipei) library(forecast) library(dplyr) library(dygraphs) library(xts) rs <- dataSetMetadataSearch("氣象") rs resource <- getResources(rs, 2) resource 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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.