forked from AdamWilsonLabEDU/SpatialDataScience
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathCS_12.R
More file actions
66 lines (63 loc) · 2.11 KB
/
CS_12.R
File metadata and controls
66 lines (63 loc) · 2.11 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
#' ---
#' title: Dynamic HTML graph of Daily Temperatures
#' subtitle: Using DyGraph library.
#' week: 12
#' type: Case Study
#' reading:
#' - Explore the [DyGraphs webpage](http://rstudio.github.io/dygraphs/)
#' tasks:
#' - Download daily weather data for Buffalo, NY using an API
#' - Generate a dynamic html visualization of the timeseries.
#' - Save the graph to your project folder using Export->Save as Webpage
#' ---
#'
#'
#'
#' # Reading
#'
#'
#'
#' # Tasks
#'
#'
#' ## Background
#' In this session you will explore several ways to generate dynamic and interactive data displays. These include making maps and graphs that you can pan/zoom, select features for more information, and interact with in other ways. The most common output format is HTML, which can easily be embedded in a website (such as your final project!).
#'
## ----cache=F, message=F,warning=FALSE------------------------------------
library(dplyr)
library(ggplot2)
library(ggmap)
library(htmlwidgets)
library(widgetframe)
#'
#' If you don't have the packages above, install them in the package manager or by running `install.packages("widgetframe")`, etc.
#'
#' # Objective
#' > Make a dygraph of recent daily maximum temperature data from Buffalo, NY.
#'
#' ## Detailed Steps
#'
#' First use the following code to download the daily weather data.
#'
## ---- messages=F, warning=F, results=F-----------------------------------
library(rnoaa)
library(xts)
library(dygraphs)
d=meteo_tidy_ghcnd("USW00014733",
date_min = "2016-01-01",
var = c("TMAX"),
keep_flags=T)
d$date=as.Date(d$date)
#'
#' Remaining steps:
#'
#' 1. Convert `d` into an `xts` time series object using `xts()`. You will need to specifify which column has the data (`d$tmax`) and `order.by=d$date`. See `?xts` for help.
#' 2. Use `dygraph()` to draw the plot
#' 3. Set the title of the dygraph to be `main="Daily Maximum Temperature in Buffalo, NY"`
#' 3. Add a `dyRangeSelector()` with a `dateWindow` of `c("2017-01-01", "2017-12-31")`
#'
#'
#' ## Output
#'
#' Your final graph should look something like this:
#'