MATH2270 Assignment 2

Visualising Open Data

Student Details

• Napapach Dechawatthanaphokin (s3613572)

library(dygraphs)

## Warning: package 'dygraphs' was built under R version 3.3.3

library(xts)

## Warning: package 'xts' was built under R version 3.3.3

## Loading required package: zoo

## Warning: package 'zoo' was built under R version 3.3.3

## 
## Attaching package: 'zoo'

## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 3.3.3

library(dplyr)

## Warning: package 'dplyr' was built under R version 3.3.3

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:xts':
## 
##     first, last

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(readr)

## Warning: package 'readr' was built under R version 3.3.3

Data

data<-read.csv("C:/RMIT/Data-Visualisation/R/FXMERGE.csv")
data$Date<- as.Date(data$Date) #convert to date
time_series <- xts(data,order.by = data$Date) #make xts

Visualisation

• Source(s): RESERVE BANK, Australia http://www.rba.gov.au/statistics/historical-data.html

P <- dygraph(time_series, main = 'Australian dollar to US dollar exchange rate, From 1983 - SEP-2017',
        xlab = 'Time (year)', ylab = 'A$1=USD') %>% dyRangeSelector() %>%
dyShading(from="1999-12-31", to="2004-02-18", color="#FFE6E6") %>%
dyShading(from="2008-07-18", to="2010-09-15", color="#CCEBD6")

P

OR

data1<-read.csv("C:/RMIT/Data-Visualisation/R/FXALL.csv")
data1$Date<- as.Date(data1$Date) #convert to date
time_series1 <- xts(data1,order.by = data1$Date) #make xts
P2 <- dygraph(time_series1, main = 'Daily Foreign Exchange Rate, 1983 - SEP-2017',
        xlab = 'Time (year)', ylab = 'A$1=USD') %>% dyRangeSelector() %>%
        dyShading(from="2008-07-01", to="2010-09-15", color="#FFE6E6")

P2